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Notes 

Le clavier de l’Echo, 
présenté sur cette photo, 
est le premier « véritable » 
clavier musical qui accède 
directement aux puces 
sonores des ordinateurs et 
qui ne nécessite pas une 
interface coûteuse 

(CI. Paul Chave.) 


Matériel p'E 


onservaltoire 


Le progiciel Echo Music, destiné au Commodore 64, tente de pallier 
l’absence de produits accédant directement à la puce sonore des 
micros. Mais ce logiciel laisse un peu à désirer. 


L’ensemble Echo, de la société Leasalink View- 
data, est composé d’un véritable clavier à trois 
octaves et demie et du logiciel permettant de s’en 
servir. Un câble d’interface permet de connecter 
le clavier à l’ordinateur par le port utilisateur. 
Enfin, un manuel est également fourni à 
l'utilisateur. 

Le matériel de l’Echo est d’une conception très 
simple : la plus grande partie du travail est 
accomplie par le logiciel fourni avec l’ensemble, 
ce qui diminue sans aucun doute les coûts de 
production. 

Le logiciel comporte deux modules différents 
et le premier est un mode orgue. Il suffit 
d’appuyer sur une des touches du clavier pour 
sélectionner un des « instruments » listés. Ceux- 
ci vont de la guitare hawaïienne au violoncelle et 
au clavecin, même si les réglages de ces deux 
machines varient légèrement. De nombreux para- 
mètres sont affichés en haut de l’écran; cela vous 
permet, selon le paramètre choisi, de modifier le 
son de l’instrument que vous utilisez. 


La version Commodore 64 du logiciel offre la 
possibilité d’ajouter trémolo et vibrato (un à la 
fois), ou de passer en mode majeur ou mineur. 
Ces effets sont obtenus en appuyant sur une des 
touches du pavé numérique. 

Dans d’autres versions, on utilise également les 
touches du micro, mais alors ce sont les touches 
de fonction qui vous permettent de sélectionner 
le trémolo et les modes majeur et mineur. Pour 
créer un effet particulier tout en jouant un mor- 
ceau au clavier de l’Echo, vous pouvez utiliser 
l’une des touches de fonction pour solliciter le 
son approprié — marimbas, contrebasse, cymba- 
les, etc. Malheureusement, aucune fonction ne 
permet de créer un accompagnement rythmique 
en jouant au clavier. 


Commandes de tonalité 


Au bas de chaque écran apparaissent les com- 
mandes de tonalité. Sur certaines versions, la 
tonalité peut être élevée ou abaissée en appuyant 
sur les touches appropriées du curseur. Cepen- 
dant, sur celle du Commodore 64, cette fonction 
est effectuée au moyen des touches < et >. Mal- 
heureusement, on peut en dire long sur la qua- 
lité de ce logiciel en indiquant que ces deux fonc- 
tions portent l’étiquette PITCH MINUS sur l’écran! 

Il est également malheureux que les sons pro- 
duits par les touches instruments ne ressemblent 
guère aux sons qu’ils doivent imiter. Ce défaut 
se retrouve très souvent dans toute l’industrie de 
la musique électronique — pas seulement dans 
les programmes informatiques. Cependant le son 
de l’Echo semble particulièrement mauvais. Par 
exemple, le violon, la viole et le violoncelle sur 
la version Commodore produisent des sons qui 
ressemblent à ceux produits par un orgue à des 
octaves différentes selon les instruments. Ce n’est 
tout de même pas la même chose! 

Le mode synthétiseur est aussi disponible. Les 
paramètres fournis par ce mode dépendent des 
fonctions offertes par la puce sonore. Ainsi, la 
version du Commodore 64 vous permet d’ajus- 
ter les paramètres d’enveloppe de la forme d’onde 
et de programmer le filtre. Comme en mode 
orgue, les paramètres sont modifiés en appuyant 
sur les touches appropriées sur le clavier de l’ordi- 
nateur jusqu’à ce que soit obtenue la valeur 
désirée. 

De façon similaire, le mode synthétiseur sur le 
BBC Micro, par exemple, exploite la commande 
ENVELOPE de la machine. Lorsque cette commande 
est appelée, le programme vous demande lequel 
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SYNTHÉTISEUR 
ECHO 


CLAVIER 


Touches de piano 
ordinaires. 


INTERFACES 


Câble à 20 voies et 
adaptateur, qui se . 
branchent dans le port 
utilisateur du 


Commodore 64. 
LOGICIEL 


La version du C64 est 
fournie uniquement 
sur cassette. 


FORCES 


L'ensemble Echo offre 
des fonctions 
permettant d'exploiter 
pleinement le potentiel 
des puces sonores des 
micros à partir d'un 
véritable clavier. 


FAIBLESSES 


La piètre qualité du 
* logiciel diminue 
grandement l'efficacité 
du système, bien qu’une 
:version améliorée soit 


Musique sur écran 

Voici les affichages écran 
du logiciel pour le 
Commodore 64 (gauche) 
dans le mode orgue, et 
pour le Commodore 64 
dans le mode synthétiseur. 
Bien qu’elles se 
ressemblent, les deux 
versions du logiciel sont 
assez différentes. On 
utilise la frappe au clavier 
pour modifier les sons. 
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des quatre synthétiseurs définis par l’utilisateur 
(par opposition à ceux qui sont prédéfinis dans 
le programme orgue) vous désiréz modifier. 
L’écran affiche alors les quatorze paramètres 
requis pour la commande ENVELOPE; chacun de 
ceux-ci est sélectionné par les touches de curseur 
gauche et droit et leurs valeurs peuvent être modi- 
fiées par les touches de curseur haut et bas. 

Le logiciel crée une interface entre le clavier 
et l’ordinateur en plaçant une valeur de 36 à 0 
dans les six bits inférieurs du registre de données 


Analyse du clavier 


Le clavier de l'Echo se 
branche dans le port 
utilisateur du Commodore 64 
et peut être facilement 
analysé par logiciel. Le 
principe de fonctionnement 
est très simple. Les six bits 
inférieurs du registre du 
port utilisateur sont mis en 
sortie afin que des 
données puissent être 
envoyées au clavier, et le 
bit le plus significatif (bit 7) 
est mis en entrée pour 
recevoir des données en 
provenance du clavier. 

Pour vérifier la frappe 
d’une touche sur le clavier, 
nous devons faire deux 
interventions : 
premièrement, POKEr un 
nombre compris entre 0 

et 36 dans le registre du 
port utilisateur (le clavier a 
37 touches numérotées à 
partir de 0 du côté gauche). 
Cela définit la touche que 
nous désirons tester. 
Deuxièmement, tester le 

bit 7 du registre de 
données (avec l'opérateur 
AND sur la valeur du registre 
et sur 128). Si ce bit est à 
1, la touche en question 
est alors appuyée; lorsque 
le bit est à 0, la touche ne 
l’est pas. 


Programme analyse Echo 


5 REM CBM 64 ANALYSE ECHO 

10 POKE56579,63:REM METTRE BITS 0-5POUR 
SORTIE 

12 REM ANALYSE 37-TOUCHES CLAVIER 

15 FOR 1=0 TO % 

20 POKE 56577, l:IFIPEEK 
(56577)AND128k >0 THEN 
PRINTI;e TOUCHE APPUYÉE » 

30 NEXT | 

40 GOTO 15:REM RECOMMENCEZ 


Variantes de basic 
Le clavier de l’Echo peut aussi être utilisé 
sur le BBC Micro. Faites les modifications 
suivantes : 


10 & &FE62=63 
20 & &FE60=I:IF(?FE60 AND 128) < >0 THEN 
PRINT |; « TOUCHE APPUYÉE » 


du port utilisateur. La méthode d’analyse du cla- 


. vier par le progiciel a pour résultat que, si on 


appuie simultanément sur plusieurs touches, ce 
qui peut arriver souvent, seule la plus élevée sera 
enregistrée. 

Malheureusement, cela interdit tout jeu rapide 
des doigts sur le clavier de l’Echo car, en d’autres 
termes, il faut laisser le temps au logiciel de 
reconnaître les mouvements des doigts : une tou- 
che appuyée n’aura d’effet musical qu’une fois 
la touche précédente relâchée. 


Kevin Jones 


Circuits 
sonores 


Construisons pour le C64 une interface 
lui permettant de communiquer 
avec la gamme croissante 
d’équipements compatibles MIDI. 


Le principal composant est un adaptateur d’inter- 
face de communication asynchrone (ACIA). 
L’ACIA se charge de la conversion des données 
parallèles de l’ordinateur en ‘données série requi- 
ses par MIDI, et vice versa. Nous utiliserons le 
MC6850 que l’on trouve dans de nombreux 
micros domestiques pour assurer le transfert de 
données asynchrones vers des unités cassette et 
des interfaces de type RS232. Nous aurons besoin 
d’une horloge d’interface, d’un opto-isolateur et 
de prises d’entrée et de sortie. 

La structure interne de l’unité montrée ici 
consiste en un certain nombre de registres à 8 bits. 
La ligne d’entrée du sélecteur de registre (RSEL) 


Diagramme du circuit d'interface MIDI 


CONNECTEUR DU BUS DE L'ORDINATEUR 


Liste des pièces 


N° Réf. 

1 C4 

2 C2/C3 
R1 


R2/R3/R4 
R5/R6 


SK1/SK2 


C1 
IC2 


1 


Article 


Condensateur 
polycarbonate 1nF 
Condensateur 
polycarbonate 100nF 
Résistance 270 Q 
Résistance 220 Q 
Résistance 680 Q 
Bobine de fil 
Prises DIN 5 broches 
180° 
Puce ACIA MC68B5 
Puce opto-isolateur 
6N139 
Inverseur hex TTL 74LS04 
Prise DIL à 24 broches 
Prise DIL à 8 broches 
Prise DIL à 14 broches 
Cristal à 2,0 MHz 
Diode IN914 


N.B. — La carte DIP utilisée pour 
monter les composants peut être 
obtenue chez tous les représentants 
Tandy; numéro de pièce : 276-164. 


74LS04 


SK1 
MIDI OUT 
(vue externe) 


X1 cristal à 2 MHz 


x 
Ç 


NZ 


Connexions des circuits 
Le couplage opto est 
assuré par un opto- 
isolateur (IC2). L'horloge de 
transmission est dérivée, 
indépendamment de 
l'horloge de l'ordinateur, 
par un oscillateur à cristal 
de 2 MHz composé d'un 
IC3a et d’un IC3b. 

Les IC3c, d et e assurent 
chacun des fonctions de 
tampon pour l'émetteur 

et pour le générateur 
d'horloge. 

Le MC6850 est compatible 
au niveau du bus avec 
l'UC 6502, utilisée dans de 
nombreux ordinateurs 
domestiques. Notez que 
nous avons nommé E 
l'entrée d'horloge vers 
l'ACIA pour éviter toute 
confusion avec les entrées 
d'horloge de transmission 
TXD et TXC. 

Les deux lignes de 
sélection de puces, CS0 
et CS1, sont connectées à 
l'alimentation + 5 V et 
sont donc continuellement 
au niveau élevé, laissant 
toujours CS2 comme seule 
entrée de sélection de puce 
active (ou unité validée). 


2 SK2 
O} moin 
(vue externe) 
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L 
AN 


Construction MIDI 

Les principaux composants 
de l'interface MIDI qui 
doivent être montés sur 

la carte de montage DIP 
sont précisés dans la liste 
des pièces. Cette carte a 
six connecteurs plats, 
doubles à ses deux 
extrémités; l'extrémité de 
droite sert à connecter le 
Commodore 64. Avant de 
monter les composants, 

il est nécessaire de faire 
certaines découpes sur la 
carte. Notez qu'elles ne 
doivent être faites qu’à 
l’une des extrémités de la 
carte, selon l'ordinateur 
que vous désirez utiliser. 
Prenez un couteau pointu 
et une petite scie à métaux 
pour faire cette découpe. 
Toutes les liaisons sont 
faites sur le haut de la 
carte à l’aide d’un fil à une 
voie, sauf les trois liaisons 
entre les broches 
adjacentes de CI. Ces 
liaisons doivent être faites 
avec de la soudure entre 
les paires de broches 
appropriées sur le côté 
cuivre de la carte. 
Commencez par monter les 
composants passifs : 

les résistances, 
condensateurs, prises DIN 
et DIL. Faites les liaisons 
nécessaires avec le fil 
(unique) et montez le 
cristal à 2 MHz. La diode 
doit être orientée afin 

que l'extrémité portant une 
bande colorée soit à droite 
(vue du dessus). Veillez à 
ne pas omettre la petite 
liaison sous le 
condensateur C3. 
Finalement, montez 
délicatement les puces 
dans leurs prises 
respectives, en veillant à 
l'orientation des encoches. 
Dans le prochain article, 
nous expliquerons en détail 
le reste des opérations à 
effectuer afin de pouvoir 
relier l'interface à 
l'ordinateur et la tester. 


Schéma de disposition des composants 


Prises DIN à 5 broches 180° MIDI IN MIDI OUT 


Résistances 
220 Q 
Condensateur 
polycarbonate == 
1nF = =" " Résistances 
Diode 1N914 ; 3 sep 0 
Opto-isolateur ; 
6N139 


Cristal 2 MHz 


Puce inverseur 


Résistance us}. , ,L fes folses s dance de.s.esl. SU 
2 700 © —. 74LS04 


Côté composants 


Condensateurs 
polycarbonate 100nF 


Clavier 


Découpes Commodore 


Découpes BBC 


.…. 
LT] 
LU 


or 5 


Ces paires. 
de doubles 
broches 
doivent 


| FEFLEOFFEET 
_ | o! ‘FRE e El | dde 
connectées es | ULJOUUU 


sous la es | : TERRAIN ENNENNE 


non Tete TA 0 PAT ET TE 
Puce ACIA à | 1 . +100 
Puce 


CREME SET ET RL] 


opto-isolateur — < | 
Puce | ÉÉÉFREEARE) 
inverseur HEX | | 


Prises DIN — 


Côté cuivre 
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autorise l’accès aux registres à partir du bus de 
données. Bien qu’il ne soit pas essentiel de com- 
prendre les fonctions des registres ACIA pour 
exécuter le logiciel qui sera fourni, les utilisateurs 
qui désirent programmer l’interface doivent pos- 
séder l’information suivante : 

e Le registre d'état est composé de 8 bits qui 
décrivent l’état en cours de la puce ACIA. Il est 
accessible au programmeur en effectuant une lec- 
ture sur l’ACIA lorsque la ligne RSEL est au 
niveau bas (zéro logique). 

e Le registre de contrôle contient 8 bits qui, 
comme son nom l’indique, contrôlent le fonction- 
nement de l’ACIA. On accède au registre de 
contrôle en écrivant sur l’ACIA quand la ligne 
RSEL est au niveau bas. 

e Le registre de décalage de transmission (TSR) 
effectue la conversion parallèle-série nécessaire 
pour transmettre un octet de données. Le regis- 
tre est chargé avec un octet provenant du regis- 
tre de transmission de données (TDR) lorsque le 
TDR est plein et que la transmission de l’octet 
précédent est terminée. 

Cette opération met à 1 le bit du registre d’état. 
L’octet est ensuite transmis à un rythme déter- 
miné par l’horloge de transmission. Les bits de 
départ et d’arrêt sont alors ajoutés aux huit bits 
de données. Il s’agit d’un registre interne auquel 
on ne peut accéder directement à partir du bus 
de données. 

e Le registre de données de transmission 
(TDR) forme un tampon entre le TSR et le bus 
de données du système. L’octet à transmettre est 


chargé dans ce registre en écrivant dans l’ACIA 
quand la ligne de sélection est au niveau élevé. 
Cette opération met à zéro le bit 1 du registre 
d’état. Pour ne pas perdre les données, TDR ne 
doit jamais être chargé lorsque le bit d’état est 
à zéro. Cela s’explique par le fait que l’octet pré- 
cédent est toujours dans le TDR en attente de 
transmission et sera écrasé. 

e Le registre de décalage de réception (RSR) 
effectue la conversion de série à parallèle requise 
lors de la réception de données en provenance du 
MIDI. Lorsque le registre reçoit un bit complet, 
il charge les données dans le RDR, mettant à 1 
le bit d’état 0. Si ce bit était déjà à 1, le bit 5 est 
aussi mis à 1, ce qui indique que l’octet précé- 
dent n’a pas été lu par l’UC et que les données 
sont donc perdues. 


Parasites 


Si l’octet reçu ne comptait pas le nombre désiré 
de bits de départ et d’arrêt, le bit d’état 4 serait 
perdu. Cela peut se produire en présence de para- 
sites électriques sur la ligne d’entrée série. On ne 
peut accéder directement au RSR, pas plus qu’au 
TSR. 

e Le registre de données de réception (RDR) 
n’est chargé que lorsqu’un octet complet est reçu 
en provenance du RSR. Il contient par consé- 
quent l’octet de données le plus récent. On y a 
accède en effectuant une lecture sur l’ACIA en 
maintenant la ligne RSEL à un niveau élevé. 
Cette opération supprime le bit d’état O. 


Schéma fonctionnel 
de la puce ACIA 


Données de 
transmission 


Kevin Jones 
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La . 
A l'étroit 
Ce schéma montre la 
disposition du CP/M en 
mémoire. En bas de la 
mémoire, la page 0 
contient les variables 
système et les adresses 
d'entrée, ainsi que le 
programme chargeur de 
l'amorce. Au-dessus est 
la zone de programme 
transitoire. Sa limite 
supérieure peut être 
déplacée pour loger les 
fichiers qui ne tiendraient 
pas dans cette zone 
devant venir recouvrir 
elle du CCP. En haut de 
la mémoire, les routines 
des BIOS et BDOS. 
Celles-ci ne doivent pas 
être recouvertes 
puisqu'elles sont 
nécessaires à l'exécution 
des commandes. 
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Dans ce dernier article sur le système d’exploitation CP/M, nous 
étudions comment l’organisation interne de la mémoire 
de l’ordinateur est conçue afin d’optimiser la place disponible. 
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Les trois principaux modules de CP/M figurent 
en haut de la mémoire. Leur adresse de départ 
dépend en fait de la version utilisée. Tout au 
début, le BDOS (Basic Disk Operating System, 
« système d’exploitation de base »), qui gère les 
fichiers résidant sur disque, et le BIOS (Basic 
Input/Output System, « système de base 
d’entrées/sorties »), qui traite les routines de 
gestion de périphériques. Au-dessous, le CCP 
(Console Command Processor, « processeur de 
commandes console »), qui est le module de com- 
munication du CP/M. 

A l’autre extrémité de la table d’allocation de 
la mémoire figurent les 256 K (connus sous le 
nom de page 0). Ils contiennent les variables 
système et les autres informations « bloc-notes » 
nécessaires à l’exploitation du CP/M. Ces der- 
nières comprennent des informations essentiel- 
les, dont les entrées aux zones mémoire affectées 
au BDOS et au BIOS, ainsi que le programme 
de chargement de l’amorce du système. Celui-ci 
doit être gardé en mémoire car le système aura 
souvent à recharger CP/M (nous verrons pour- 
quoi plus loin). 

Un autre élément important figurant à la 
page 0 est le TFCB (Transient File Control 
Buffer, « tampon de contrôle transitoire de 


fichier »). Nous avons précédemment vu que, 
quand nous demandons qu’un fichier soit chargé 
depuis un disque, le CCP met en place en 
mémoire un bloc virtuel de contrôle fichier. Lors- 
que le BDOS rencontre un fichier, il le compare 
à celui qui figure au CCP et transmet les autres 
informations de la piste du répertoire au CCP. 
Cette information est stockée dans le TFCB. 

Entre la page 0 et les zones allouées au CCP 
figure une région de la mémoire appelée TPA 
(Transient Program Area, « région transitoire de 
programme »). On peut dire qu’il s’agit de 
l’espace de travail du CP/M. Comme nous 
l'avons vu, lorsqu'une instruction est soumise au 
système d’exploitation, le CCP commence par 
passer en revue la liste des commandes résiden- 
tes stockée dans sa zone mémoire. S’il ne trouve 
pas l’instruction, il la considère comme transi- 
toire et demande au BDOS de l'identifier. Celui- 
ci suppose que la commande figure au disque 
système. Il charge au début de la zone transitoire 
de programme (TPA) une copie du programme 
code machine. La TPA commence toujours sur 
la position hexadécimale 100 (le début de la page 1 
à la table mémoire de l’ordinateur). Une fois 
chargée, la commande est prête à être exécutée 
et le sera automatiquement. 

Les spécifications d'emploi du CP/M stipulent 
qu’un minimum de 16 K de RAM est nécessaire. 
C’est beaucoup si l’on considère que le CP/M 
reste à l’arrière-plan lors de l’exécution d’autres 
programmes. Heureusement, une toute petite 
partie seulement de cette mémoire est effective- 
ment utilisée par les programmes CP/M eux- 
mêmes. La plus grande part de la RAM est réser- 
vée à la zone transitoire qui, quand on se sert du 
strict minimum, se termine à l’adresse hexadéci- 
male 2900. Puisque la page 0 est réservée aux 
variables système CP/M, 7 K seront utilisés par 
la zone de programme transitoire. 

Cependant, la plupart des commandes transi- 
toires ne prennent que 2 ou 3 K. Le reste de la 
zone est utilisable par tout fichier nécessaire à la 
commande transitoire. Ainsi la zone de TPA 
l’est-elle par la commande en cours d’exécution 
et par les fichiers sur lesquels cette dernière est 
susceptible d’agir. 


Montage de mémoire 


Cela pose un problème au système. Si nous dis- 
posons d’une RAM minimale, de 7 K d’espace 
TPA disponible, et si 3 K sont utilisés par la com- 
mande transitoire, il ne nous reste que 4 K pour 


are 


les autres fichiers. C’est à peine suffisant pour 
un programme de taille moyenne, si nous 
excluons les longs fichiers texte. Nous avons vu 
qu’un fichier CP/M peut comprendre jusqu’à 
16 K. On pourrait bien sûr contourner le pro- 
blème en rajoutant de la mémoire. Toute nou- 
velle tranche de RAM ajoutée au système est 
affectée au TPA, jusqu’à un maximum de 64 K 
directement adressables par le CP/M. Ainsi, le 
haut de la mémoire occupée par le CP/M est 
élevé d’une valeur hexadécimale de 4000 pour 
chaque nouvelle tranche de 16 K. 

Mais supposons que nous ne puissions rajou- 
ter la mémoire nécessaire. Comment procède 
alors CP/M pour faire tenir tant de mémoire en 
si peu de place? La réponse est simple : tout 
débordement de la zone programme transitoire 
recouvre en écriture le processeur de comman- 
des console. Ce n’est pas aussi grave que cela en 
a l’air. D’abord ce dernier, le CCP, n’est pas 
nécessaire lors de l’exécution d’une commande. 
Le CP/M, à l’image de tous les systèmes 
d’exploitation, refuse alors toute nouvelle com- 
mande. Aussi le CCP n’a-t-il pas besoin d’être 
présent pour une éventuelle interruption ou exé- 
cution de commandes résidentes superflues. 

Bien sûr, lorsque le programme de commande 
est terminé, il devient à nouveau nécessaire de 
recharger les programmes du CCP afin que le 
système soit disponible pour une nouvelle com- 
mande. C’est la fin d’une commande transitoire. 
Le programme appelle alors la routine de lance- 
ment du système, qui est située à l’adresse hexa- 
décimale 0005 de la page 0. Cette adresse est 
l’entrée du système d’exploitation. Elle recharge 
en mémoire le module du CCP qui est alors prêt 
à recevoir l’instruction suivante. 


Contraintes de conception 


Nous sommes maintenant à même de compren- 
dre la nature des commandes transitoires. Lors 
de la conception du CP/M, les composants 
(notamment de RAM) étaient très chers, et peu 
de machines étaient équipées en standard de plus 
de 16 K. Aussi les logiciels destinés à ces machi- 
nes devaient-ils se conformer à ces limitations. 

Pour que le CP/M soit aussi complet que pos- 
sible dans un espace mémoire donné, certaines 
de ses zones devaient se recouper, se recouvrir. 
Et comme les BIOS et BDOS sont tous les deux 
nécessaires de manière permanente, ils ne pou- 
vaient être employés à cette fin. De nombreuses 
commandes les utilisent pour accéder aux fichiers 
ou pour des opérations d’entrée/sortie (telles que 
diriger un fichier vers l’imprimante ou l’afficher 
à l’écran). C’est pourquoi il a été décidé que le 
CCEP et la TPA occuperaient alternativement le 
même emplacement mémoire : ils ne peuvent en 
aucun cas être utilisés en même temps. 

La zone du processeur peut s’effacer au pro- 
fit du programme transitoire : celui-ci étant sup- 
primé après exécution, le processeur peut alors 
être rechargé en toute sécurité. Il est remarqua- 
ble que Gary Kildall et son équipe soient parve- 
nus à réaliser un système durable et performant 


malgré les limites des possibilités des matériels de 
l’époque. 

Maintenant que les micros professionnels 
adoptent le processeur 16 bits, il semblerait que 
le CP/M soit voué à disparaître. Cependant, 
même si des systèmes d’exploitation sur 16 bits, 
tels que le MS-DOS, dominent de plus en plus 
le marché, l’ordinateur 8 bits utilisant le micro- 
processeur Z80 a encore de beaux jours devant 
lui. 

Les ordinateurs domestiques et les petits micros 
professionnels n’ont pas besoin, en effet, de la 
puissance d’un processeur 16 bits, mais leurs lec- 
teurs de disque auront, eux, besoin d’un système 
d’exploitation. Le CP/M, qui est, à ce jour, le 
système d’exploitation de fait pour les 8 bits, 
devrait constituer le choix idéal pour les fabri- 
cants désireux de fournir une vaste gamme de 
logiciels sans grever les coûts de développement. 
Certains ont déjà fait ce choix, notamment 
Memotech et Amstrad. 


Mise en œuvre d'Amstrad 


Naturellement, les utilisateurs sont éblouis par la 
perspective d’avoir à leur disposition quelque dix 
mille logiciels développés sous le standard CP/M. 
Mais ils se trouvent confrontés à plusieurs pro- 
blèmes. Notamment, Amstrad leur pose une dif- 
ficulté particulière : ayant choisi le format Hita- 
chi 3 pouces pour les lecteurs, il n’offre pas une 
compatibilité immédiate avec les logiciels CP/M 
développés originellement en 5; pouces et 
8 pouces. Cela signifie que les utilisateurs 
d’Amstrad devront attendre des applications 
spécifiques. 

Un autre problème avec cet ordinateur vient 
de sa gestion d’écran qui ne laisse que 38 K de 
libre pour les programmes, ce qui est très insuf- 
fisant pour les logiciels récents écrits sous CP/M. 
A part certains de ces programmes qui peuvent 
être aménagés pour correspondre à la mémoire 
disponible, les utilisateurs d’ Amstrad devront se 
contenter de programmes obsolètes. Cependant, 
en choisissant d’investir le marché des « bas 
de gamme », CP/M sur 8 bits semble devoir 
confirmer son développement. 

Cela ne signifie pas que Digital Research ait 
abandonné le marché des processeurs 16 bits. 
Mais ce dernier est maintenant très fermé, très 
concurrentiel, et la conjoncture n’est plus favo- 
rable comme au temps où Gary Kildall développa le 
CP/M. Une version ultérieure, le CP/M-86, essaya 
de pénétrer le marché des processeurs 8088/6. 
Mais elle ne connut pas de succès. La tendance 
est maintenant à la compatibilité IBM et au stan- 
dard MS-DOS. 

Mais, tout récemment, Digital Research a lancé 
une version multi-utilisateurs de CP/M, appelée 
« CP/M Concurrent ». Ce système d’exploita- 
tion peut être utilisé par un seul utilisateur ou par 
plusieurs reliés en réseau. Il est peut-être trop tôt 
pour dire si CP/M Concurrent connaîtra le même 
succès que son prédécesseur 8 bits, mais il sem- 
ble bien que CP/M soit en mesure d’occuper le 
terrain encore longtemps. 


A l’intérieur de MP/M 
et CP/NET 


Nous avons abordé 
presque exclusivement le 
CP/M version 2.2, de loin 
la plus répandue. Comme 
toutes les versions CP/M, 
elle est mono-utilisateur 
et monoposte. Mais 
Digital Research a par 
ailleurs développé 
d'autres systèmes 
(appelés « systèmes 
multitâches ») construits 
autour de CP/M et 
destinés à être 
multipostes et 
multi-utilisateurs. 

Un système multitâches 
permet le partage 
temporel de l'unité 
centrale entre un certain 
nombre d'utilisateurs et 
de périphériques. Le 
système d'exploitation 
qui permet cette mise en 
commun des ressources 
s'appelle MP/M (Multi- 
Processing Monitor 
Control Programm, 

« programme de contrôle 
de moniteur 
multitraitements »). Ce 
système permet de relier 
jusqu'à seize terminaux 
entièrement autonomes. 
Un utilisateur donné n’a 
du reste pas conscience 
de la présence des autres 
utilisateurs sur le réseau. 
Pour coordonner les 
interventions des 
utilisateurs, MP/M 
comprend un certain 
nombre de 
caractéristiques pour 
gérer le partage des 
fichiers et des 
périphériques. 

CP/NET est un autre 
développement de CP/M 
de Digital Research. 
C'est la version réseau 
de CP/M. Elle permet à 
plusieurs utilisateurs de 
communiquer. 
Contrairement à MP/M, 
CP/NET ne suppose pas 
une tête de réseau et une 
hiérarchisation, même si 
un nœud central 
fonctionne sous MP/M et 
dispose de lecteurs. 
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Par-delà les étoiles 
Notre carte 
interplanétaire indique 
les routes hyperspatiales 
entre chaque planète, et 
le temps de traversée 
correspondant. La 
fonction du programme 
GENE est de trouver des 
circuits aussi rapides que 
possible. 

Bernard Jennings 


Code génétique 


Dans cet article consacré aux machines capables d’apprendre, nous 
proposons un programme intitulé GENE, qui permet de trouver de 
meilleures solutions à des problèmes de réseaux assez complexes. 


Quand les chercheurs en intelligence artificielle 
s’efforcent de trouver dans la nature des idées 
leur permettant de mettre au point des systèmes 
capables d’apprendre par eux-mêmes, ils rencon- 
trent aussitôt trois bons exemples : le système 
nerveux, le système immunitaire et l’évolution 
elle-même. Le premier est un mécanisme extraor- 
dinairement efficace, comme le montre le cerveau 
humain. Mais ses opérations restent plus ou 
moins mystérieuses, et nous ne les comprenons 
pas assez pour pouvoir les reproduire. Le 
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deuxième est aussi un mécanisme d’apprentis- 
sage, capable de faire la différence entre lui- 
même et les autres, de telle sorte qu’il peut atta- 
quer et détruire les organismes étrangers. Dans 
l’espace d’une vie, il apprend à reconnaître des 
millions de protéines; nous serions vite morts 
sans cette phénoménale capacité d’adaptation. 
Mais il procède avant tout par simple accumula- 
tion de connaissances ponctuelles ; ses pouvoirs 
de généralisation restent tout à fait rudimentaires. 

Le processus évolutif lui-même peut, en revan- 
che, nous aider à mettre au point des systèmes 
plus élaborés ; il est, bien sûr, très lent pour nous, 
mais nous pouvons toujours recréer sur ordina- 
teur une simulation ayant un rythme plus rapide. 
Il a surtout l’avantage d’être assez simple, et assez 
bien compris, pour que nous puissions le repro- 
duire avec une chance raisonnable de succès. 
Nous avons déjà fait remarquer qu’une appro- 
che « darwinienne » du problème de l’apprentis- 
sage des machines avait certains avantages théo- 
riques. Voyons maintenant ce qui se passe quand 
on en vient au stade de la pratique. 

Pour illustrer l’emploi d’un algorithme évolu- 
tionniste dans un problème de ce type, examinons 
la célèbre énigme du voyageur de commerce. 
Sous sa forme classique, elle met en scène üun 
représentant américain qui doit visiter les capi- 
tales de quarante-huit Etats des Etats-Unis 
(Hawaii et Alaska sont exclus pour des raisons 
de commodité). Il connaît les distances entre elles, 
et doit se rendre une seule fois dans chacune 
d’elles; le trajet total doit être le plus court. 

Tout cela a l’air très simple, mais on a vite fait 
de se rendre compte qu’il existe un nombre total 
dé trajets égal à (N-1)! N étant le nombre de vil- 
les. Un circuit comprenant 48 villes peut compor- 
ter 47 premières étapes différentes, suivies de 
46 autres (deuxième étape), puis de 45, etc. A dire 
vrai, il existe en fait plus de trajets concevables 
que d’atomes dans l’Univers! Même réduit à 
vingt villes, notre circuit comprend plus de 
20 millions de millions de possibilités ! 

Le problème peut être abordé de plusieurs 
façons. On peut le traiter comme une question 
de recherche, en mettant en œuvre des métho- 
des analogues à celles que nous avons déjà décri- 
tes, ou faire usage de techniques aléatoires de 
type Monte-Carlo. Nous choisirons pourtant une 
approche un peu particulière, en l’abordant 
comme s’il s’agissait d’un problème d’apprentis- 
sage. Nous avons donc besoin d’un procédé qui 
explore, de façon économique, le nombre énorme 
de solutions potentielles. Il n’est pas nécessaire 


Kevin Jones 


Donneur 


qu’il découvre la meilleure, mais il doit au moins 
en trouver une bonne. 

Nous vous présentons ici le programme GENE 
(General Evolutionary Network Explorer), qui 
est un système d’apprentissage spécifiquement 
mis au point pour explorer des réseaux et déter- 
miner des règles évolutives lui permettant de défi- 
nir des trajets de plus en plus courts. Avant d’en 
appliquer par le menu le fonctionnement, il n’est 
peut-être pas inutile de choisir un réseau précis. 
La plupart des guides galactiques donnent la liste 
des planètes situées à moins de 80 al et sur les- 
quelles vous avez une chance d’assister, chaque 
samedi soir, à une surprise-partie décente. Votre 
objectif sera donc de participer à vingt « saute- 
ries » différentes, puis de revenir à votre point 
de départ, le tout en une seule nuit. 

La carte qui vous est donnée décrit les gran- 
des routes hyperspatiales qui sillonnent le voisi- 
nage de notre système, et précise les temps néces- 
saires pour aller d’un point à l’autre. Certains de 
ceux-ci ne sont pas connectés; on considère que 
dans ce cas il faut 1 000 unités de temps pour 
faire le trajet. 


Schéma d'apprentissage 
évolutionniste 


Un schéma classique définit d’abord une popu- 
lation de structures qui sont traitées comme 
autant de « pseudo-organismes ». Chacune 
d’elles (les « règles ») donne une solution poten- 
tielle au problème à traiter. Elle permet aussi la 
diffusion de « règles filles » grâce à des procé- 
dures qui reprennent certains éléments de la 
reproduction biologique — par exemple les 
« parents » transmettent certaines de leurs carac- 
téristiques à leurs « enfants ». 

Suivant les résultats obtenus, certaines règles 
sont choisies ; elles ont les plus grandes chances 
de « survie » et la plus grande probabilité de se 
« reproduire ». Dans notre programme, leur 


Familles, je vous aime 
GENE découvre de 
nouveaux trajets au sein 
du réseau en appariant 
deux circuits déjà existants 
et qui donnent de bons 
résultats. IIs sont 
présentés sous forme 

de chaînes de caractères 
BASIC ; leur donner un 

« descendant » se réduit 
en fait à manipuler ces 
chaînes. Dans notre 
exemple, la sous-chaîne 
HIBCD est prise à l’un 

des parents (le donneur) 
et transmise à l'autre 

(le receveur), en s’assurant 
qu'aucune lettre n’est 
répétée deux fois. On est 
ainsi certain que, comme 
dans les manipulations 
génétiques réelles, les 
caractéristiques des 
parents passent à leur 

« rejeton ». 


Ingénierie alphabétique 


Deux structures « parentales » sont d’abord 
choisies au hasard parmi celles qui ont 
survécu au processus de choix (ce qui 
implique que les parents ont une capacité 
supérieure à la moyenne pour remplir leur 
tâche). L’un d’eux s’appelle le « donneur » 
(R1%) et l’autre le « receveur » (R2%) : voir les 
lignes 3030 à 3060. 

Un lot de « matériel génétique » (qui est en 
fait une sous-chaîne) est extrait du « donneur » 
de façon aléatoire et placé dans la chaîne 
Si. Le sous-programme de la ligne 3300 mêle 
ensuite le tout à la chaîne « receveur » en y 
insérant les lettres choisies (sauf celles qui 
font double emploi), dans l’ordre dans 
lequel elles apparaissent. Le processus 
d’appariement est en fait asymétrique : 

X apparié avec Ÿ ne donne pas les mêmes 
résultats que Y apparié avec X, même si les 
positions aléatoires P1% et P2% sont 
identiques. Voyons d’un peu plus près un 


exemple précis. Les deux parents étant : 


Donneur : AGHIBCDFEJ. 
Receveur : HGABFJICDE. 


Nous pouvons sélectionner la sous-chaîne 
HIBCD 


comme étant offerte par le donneur, 
et y adjoindre les autres lettres du receveur 
pour obtenir 


HIBCDGAFJE 


en résultat final. 

Il faut bien insister sur le fait que ce n’est 
pas là la seule façon de procéder 
autrement. Mais cette méthode, tout comme 
les croisements génétiques authentiques, 
assure le transfert de l'information 
parentale à la nouvelle génération. Chaque 
appariement produit de même un rejeton 

« valide ». Cela signifie qu’en fait le sous- 
programme de la ligne 4000 n’a pas d'utilité 
véritable, mais nous l’avons conservé afin 
de vous donner une idée plus précise de la 
structure d'ensemble du programme. 
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structure reste tout à fait simple : elles se rédui- 
sent à des chaînes de caractère du genre : 


ABJHMNCDKTSFROEGILOP 


Chaque lettre correspond à une planète du 
système stellaire et n’apparaît donc qu’une seule 
fois dans la chaîne. Celle-ci comprend toujours 
-20 caractères, dont les permutations définissent 
l’ordre de visite des planètes, ce qui détermine 
un trajet particulier à travers le réseau. 

Il est extrêmement facile d’évaluer chaque 
chaîne en additionnant les distances entre cha- 
que planète prise successivement dans l’ordre 
déterminé. Plus le total est petit, meilleur est le 
trajet. Nous ferons en sorte que les chaînes dont 
les totaux sont supérieurs à la moyenne soient 
supprimées à chaque nouvelle « génération ». Il 
se pose bien sûr la question de savoir par quoi 
les remplacer. Comme tout repose ici sur une 
analogie biologique, nous aurons recours à un 
procédé qui évoque la mutation des espèces, 
parce qu’en l'occurrence c’est une technique plus 
satisfaisante que la reproduction sexuée propre- 
ment dite. 

Huit pour cent des chaînes « survivantes » 
subiront donc des mutations. Le sous-programme 
correspondant commence à la ligne 3500 et se 
borne à procéder à des échanges aléatoires. Les 
mutations ne constituent pas en génétique des 
opérateurs primaires, mais des modifications 
d’arrière-plan qui empêchent le système d’attein- 
dre un optimum local dans lequel il resterait pris. 
Il peut, en effet, y avoir une limite supérieure aux 
améliorations survenues, par les seules méthodes 
de la reproduction sexuée, à l’issue de plusieurs 
générations. 

Si vous vous livrez à certaines expériences sur 
le programme, vous constaterez que la norme 
moyenne de la population des règles s’améliore 
réellement avec le temps, bien qu’il n’y ait pas 
de progression continue. Même les meilleures 
règles peuvent « mourir » avec le temps. En fait; 
le programme « triche », puisqu’il conservetOus 
jours la meilleure règle, qu’il ne remplacegämais 
que par une autre encore meilleure. 

Vous pourrez procéder à des « réglages. »en 
jouant avec les « taux de décès » dedaligne2520; 
Elle comporte un élément aléatéirequiftixee 
taux de survie des bonnes règlés; d'une.généra” 
tion à l’autre, à 88 % ; maiséela peutètre modis 
fié. Vous pouvez égalemert'ajustenligne.-35204e 
taux de mutation, ou iwitroduire-des-opérations 
de mutations nouvellé, par exemple inversion 
complète d’une chéîne: 

Deux question$subsistent… 

1. Quelle estla valeur dela méthode”? 

2. Pourqu@ifonctionne-t-elle? 

On peut obtenir une réponse à la première 
question en se servant de la méthode de Monte- 
Carlo, puisque tous les algorithmes évolutifs n’en 
sont qu’une forme légèrement modifiée; cette 
méthode consiste en effet à générer des solutions 
aléatoires et à conserver la meilleure, le tout dans 
une limite temporelle spécifiée. Ici, cela voudrait 
dire essayer une chaîne règle au hasard, l’évaluer, 
la retenir si elle se révèle la meilleure, puis la faire 
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muter, et cela aussi longtemps que l’on voudra. 
Si vous écrivez un programme de ce genre, vous 
constaterez qu’il trouve assez vite une solution 
correcte, puis s’améliore quelque peu à mesure 
que le temps passe. En fait, au bout de vingt mille 
essais, les résultats sont à peine meilleurs qu’au 
bout de dix mille. Dans l’ensemble, les algo- 
rithmes génétiques s’améliorent avec la durée, ce 
qui nous mène au second point. 

La méthode de Monte-Carlo procède à une 
recherche à l’aveugle, tandis qu’un algorithme 
génétique tient compte de ce qu’il découvre pour 
orienter ses recherches. Les structures qui don- 
nent de bons résultats sont reprises et diffusées 
parmi la base de connaissances (la population de 
règles), puis recombinées dans des contextes un 
peu différents. La recherche est en effet orientée 
préférentiellement vers les régions favorables (où 
l’on a trouvé de bons résultats) d’un « espace pros 
blème » multidimensionnel. Cela permet de déf® 
nir une stratégie de recherche raisonnable #sauf 
si la fonction d’évaluation se révèle extraofdinais 
rement discontinue. 


Le programme GENE 


Les tableaux suivants contienneftMles données 
essentielles nécessaires à la ise-en œuvre de 
notre système d'apprentissége évolutif. 


NOM$ (TAILLE%) Noms des nœuds du réseau. 


LIENYITAILLE®, 

TAILLE%) Distances entre nœuds. 

NX (TAILLES) Utilisé dans les méthodes 
emmêlées. 

R$INR%] Les règles elles-mêmes (chaînes). 

RVINR%) Valeur de chaque règle. 


On se sert de NX% quand on cherche à créer une 
nouvelle règle (ligne 3300), de façon que chaque 
lettre-nœud n'apparaisse qu'une seule fois. 

R$ garde en mémoire la population de règles 

en cours, sous forme de chaînes de longueur 
TAILLE. Chacune d'elles définit un trajet particulier. 
BV donne la « valeur » de chaque règle par rapport 
à la longueur du trajet qu'elle représente. Si 
RVIR%)=0, la règle R% « meurt » et devra être 
remplacée à la génération suivante (les circuits de 
ce type ne sont, de toute évidence, pas viables). 
TAILLEX peut être modifié si vous désirez essayer des 
réseaux un peu différents, auquel cas vous aurez à 
modifier le programme à partir de la ligne 8000. NR% 
peut également être altéré de façon à juger de 
l'effet d'un nombre inférieur, ou supérieur, de 
règles. 


10 REM sement 
11 REM we GENE æn 
13 REM metmnmmmen 
100 GOSUB 1009 : REM Mise au point matrice carte 
101 GX=0: SNxXeD 
105 B=TAILLEX*1908: Bs="" 
118 INPUT "COMBIEN DE GENERATIONS ", MGx 
111 GOSUB 1720 : REM REGLES INITIALES 
115 IF SNX=@ THEN INPUT “NOEUD INITIAL No :", SNxX 
120 REM #wee BOUCLE PRINCIPALE #ée 
130 Gxk=Gx+1 
148 PRINT “Generation "16% 
150 GOSUB 2008 : REM EVALUATION REGLES 
160 GOSUB 2508 : REM SUPPRESSION MAUVAISES REGLES 
170 GOSUB 3908 : REM APPARIEMENT BONNES REGLES 
180 GOSUB 3500 : REM mutations 
190 GOSUB 4908 : REM RENFORCEMENT 
200 1F GX(MGX THEN 120 
220 GOSUB S00@ : REM expression nouvelles rèsies 
250 END 
9339 : 
1000 REM -- S/P MISE EN PLACE RESEAU : 
1081 TAILLE * = 20: NRX=24 
1910 DIM NOM#(20), LIENX(29, 28) 


1811 
1812 
1013 
1215 
1028 
1022 
1823 
1825 
1052 
10532 


2818 


ŒÉRFRTE 


BENSÉE 
N 
PRE 8 


ŒTEFIT 


HE 


DIM NXXC(TAILLEX) 

DIM RSCNRX), RVCNRX) 

REM les rèsies et leurs valeurs 
FOR 1%=1 TO TAILLE *x 

FOR JX=1 TO TAILLE *x 

LIENX(IX, JX)=1008 : REM VALEUR PR 
IF IX=JX THEN LIENX(I*, JÉ)=® 

NEXT : NEXT 

NCX=D : Lx=9 

FOR IX=1 TO NRX: AVCIX)=8r NEXT 
RESTORE 

REM wwe LIT NOM ET NUMERO DU NE 
RERD NS, 1DX 

PRINT NS21D% 

IF IDXC28 THEN GOSUB 1500 

IF 10x98 THEN 1848 

PRINT NCX#" LIEUX MIS EN PLACE." 
PRINT Lxi" LIENS DIFFERENTS. " 
RETURN 


REM -—- NOEUD (ET CONNEXIONS) INDE 
NCX=NCX+1 

IF IDXCNCX THEN PRINT “ATTENT TON 
ORDONNE. * 

NOMS (NCX) =NS 

REM www“ MISE EN PLACE TABLEAU IN 
READ NIX, NTX 

LIENXCID%, NI%) =NTX 

REM LIENS NULS : AUCUNE IMPORTANC 
Lé=La+i 

IF NIX>Q THEN 1550 

RETURN 

: 

REM —-rèsies initiaies sans vale 
S$=LEFTS ("ABCDEFGHI JKLMNOPGRSTUVE 
GOSUB 1788 : REM lit tout fichies 
FOR RX= 1 TO NRX 

RSCRX)=SS 

PRINT S#:Rx 
IX=INTCRNDCL)#TAILLEX+1)3 JX= INT 
GOSUB 6BBB:REM INVERSION 

NEXT 

RETURN 

: 


INPUT “fichier anciennes rèsies # 


IF RFS=""* THEN RETURN 

OPEN 2,8,2,RF#+"S,R" :FX=2 : REM 
OPEN 2,1.0, RFS:FX=2:REM systèue & 
INPUT F%, B$, B, SNX 

CLOSE 2 REM système à disquettes 
Ss=Bs 

REM seulement la meilleure 
RETURN 

: 

REM -- S/P évaluation rèsies 
T-0 

FOR RX=1 TO NRx 

IF RVCRX)<=@ THEN GOSUB 2208 
T=T+RVCRX) 

NEXT 

AV=T/NRX : REM valeur moyenne 
PRINT “SCORE MOYEN =": Av 
RETURN 

: 

REM -— évaluation rèsie isolée 
SS=RS CRK) 

P1X=SNX : REM noeud de départ 
GTX=8 

FOR SX=1 TO LEN(S#) 
P2X=ASC(MIDSCSS, SX, 1) )-64 

IF P2X=SNxX THEN GOTO 2298 
GTX=GTX+LIENX(P1X, P2X) 

PLX=P2X 

NEXT 

RVCRXD=GTX+LIENX(P2%, SNX) 

RETURN 

: 

REM -— S/P suppression mauvaises 
FOR R£=1 TO NRxX 

IF RVCRX) € B THEN B=RVCRX): Hg=F 
IF RVCRX) € AV OR INTCRND(1)«) 80 


RSCRX)=""1 RVCRX)=9 


2530 
2548 
2550 
2560 
00e 
3e18 
3020 
3050 
3056 
3070 
3075 
3se8e 
LE] 


NEXT 

RETURN 

REM -- NB ii vaut mieux de retiite 
L 

REM -— S/P appariement 

FOR RX=1 TO NRxX 

IF RVCRX))@ THEN GOTO 3128 
RLX=INTCRNDCL)NRX+1)11F RVCRIX)C 
R2X= INT CRNDC1)#NRK+1):1F RVCRSK)C 
REM les "parents" sont choisis 
P2X=INTCRND(1)#(TAILLEX-1)+1 
P1X=INTCRND(1)#TAILLEX+1) : REM € 
SS=MIDSCRSCR1X), P1X, P2X) 


3) INDIVIDUEL: 


rENI 1ON + NOEUD"+1D%: 


LEAU INTER-NODAL. “es 


s vaieur 
ARSYUVWXYZ*: TAILLEX) 
fichier éventuel 


JX= INT CRND(1)#TAILLEX+1) 


l 


ésiws (return si non présent)", 


Î 
1 REM système à disquettes 


avé à cassettes 


CRX) 
1)108+1)288 THEN 


ites valeurs 


VCRIX)C=8 THEN 3030 
VCR/XI<=9 THEN 3858 

sin 

+1 

: pe points de frasmentation 


RÉSSESSÉSEUSNS 


= 
e 


GOSUB 3300 : REM insertion du reste 
RÉCRXI=GS 

NEXT 

RETURN 

: 

REM -- S/P méilanse de sene 

FOR SX=1 TO TAILLEX* 

NXX(SX)=@ : NEXT 

FOR SX=1 TO LEN(S#) 
SXX=ASCC(MIDS(SS, SX, 1))-64 
NXXCSXXI =NXXCSXXI +1 

NEXT 

FOR SX=1 TO LENCRSCR2%) ) 
SXX=ASC(MIDSCRSCR2X) ; SX, 13) -64 
IF NXX(SX%)> @ THEN GOTO 3428 
St=S8+MIDSCRSCR2X) , SK, 1) 
NXXCSXX) =NXXCSXX) +1 

NEXT 

RETURN 

: 

—— S/P mutation 

FOR RX=1 TO NRX 

IF RND(10@) ? 8 THEN GOTO 35680 
S$=RSCRX) 

FOR TxX=1 TO 7 

R1%= INT CRND C1) #TAILLEX+1) 

R2%= INT CRNDC1)#TAILLEX+1) 
IX=R1X:JX=R2X: GOSUB GOOB:REM INVERSION 
NEXT TX 

RSCRXI=SS 

RVCRX)=9 

NEXT 

REM seuil échanse pour le moment 
REM une inversion s'impose 
RETURN 

: 

REM -—— S/P RENFORCEMENT 
RETURN 

REM N'EXISTE PAS ENCORE 

REM -- affichase résultats 
PRINTLES TRAJETS SONT :" 
BR="TAILLEX*1000 

RxX=@ 

FOR I%=1 TO NR%X 

IF RVCIX)=@ THEN 5100 

PRINT 1%, RVCIK) 

PRINT RSCIX) 

IF RVCIXICBR THEN BR=RV(IX): RX=1%X 
NEXT 

GET A$ : IF A$=""THEN 5105 
PRINT 

PRINT "LE MEILLEUR EST: * 
PRINT RSCRX), RX 
S$=RSCRX):G0SUB 6408 
PRINT“Distance = "YRVCRX) 


GET A$ : IF AS =""THEN 5134 

PRINT'Iie meilleur jusau'à présent :" 
PRINT B$ 

S$=B#:GOSUB 6400 

PRINT"Distance =",B 

GET A$: IF A$="" THEN 5144 

PRINT 

GOSUB 5508 : fichier mise en réserve 
RETURN . 

: 

REM -- S/P mise en réserve 

INPUT "New Rule File (RETURN if none)", RF$ 
OPEN 2,1,1, RF#:FX=2 :REM POUR CASSETTES 
OPEN 2,8,2, RF$+",S, W":PX=2 

PRINT F%,B$, B, SNX 

CLOSE 2 

REM LE MEILLEUR DU LOT 

RETURN 


REM ww inversion de 2 caractères de S$ sem 


IF IXDJX THEN Teint IXeJXs JXeTX 
XS=MIDS CSS, 1%, 1) 

YS=MIDS CSS, JK, 1) 

SS=LEFTS CSS, IX-1)+YS+MIDS CSS, 1X+1) 
SS=LEFTS CSS, JK-1)+X84MID8 CSS, JK41) 
RETURN 

: 

REM er VOYAGE tn 

PRINT " @ “3NAMES(SNX) 

FOR Ix=1 TO LEN(SS) 
NX=ASC(MIDS (58, 1%, 1) 64 

IF NXCOSNX THEN PRINT IX3" “3NOMSCNX) 
NEXT ; 

PRINT 1%: *}NOMSCSNX) 

RETURN 

: 

REM -- DATA carte du système: 

DATA SOLEIL, 1 

DATA 2,4, 17,30, 20,80, @,@ 

DATA MERCURE, 2 

DATA 1:4, 3,6, 8,8 — 


APHRODITE, 3 
26, 57, 8,0 

LUNE, 4 | 

S1 6.19, 0.0 

TERRA FIRMA, 5 

37e T8 6,8 41, 0 

ROYAUME DES DIABLES, & 

58, 711, 912, 8,12, 5,18, 0,0 
PHOBIR, 7 

5.8, 9,13, 8,11, 6,1, 0,0 

EUREKA, 8 

6,12, 7,11: 91, 18,16, 11,25, @,0 
GALILEF, 9 

18,15, 8,1, 6,12, 7:13, 0,0 
SOPHIA ANTIPOLIS, 18 

9,15, 12,24, 11,28, 8,16, 0,0 
OMBRIE, 11 

8.25, 10,20, 12,17, 13,28, @,@ 
TRIDENT, 12 

18,24, 14,22, 13,28, 11:17, 18,2 9,@ 
LIMBES, 13 

12,28, 14,1, 16,48, 15,23, 11,28, 
GRAND BOULEVARD, 14 

12,22, 13,1, 18,25, 0,0 
HADES. 15 

13,223 16,232 0,0 

BETA GLOBULINE, 16 

13,48. 17:64, 15,32, 0,0 
MAXIMA CENTAURI» 17 

16,64, 1,32, 19,88, 0,0 
POSEIDON, 18 

12,2 14,25, 13,25, 0,0 
ULTIMA THULE, 19 

17,88, 20,96, 0,0 

OMEGA SOLARIS, 28 

1:80, 19,95, 8,0 

NULLE PART, @ 
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ER 
Auto-diagnostic 


Prolog possède la propriété de se servir de ses propres programmes 
comme données. Cela le destine tout particulièrement à être 
utilisé en programmation pour l'intelligence artificielle. 


PROLOG a été choisi par les Japonais 
comme langage de base pour leurs 
ordinateurs de cinquième génération. 
Deux raisons motivent ce choix. 
D'abord, les termes de PROLOG peu- 
vent prendre une forme très semblable 
à celle des relations d’une base de don- 
nées relationnelles. Les Japonais voient 
leur machine du futur sous la forme 
d’une base de données sophistiquée. 

En deuxième lieu, PROLOG est le 
langage idéal pour l’écriture de pro- 
grammes d’intelligence artificielle. 
Cela est principalement dû à sa faculté 
d’utiliser ses propres programmes 
comme données, mais aussi au fait que 
son interpréteur-temps d’exécution est 
assez semblable à un moteur d’inféren- 
ces de nombreux systèmes experts 
modernes. 

Nous donnons ici un programme qui 
illustre de manière simple l’intérêt 
d’utiliser les instructions de pro- 
gramme comme données. Il s’agit de 
la simulation des déplacements d’un 
robot dans une pièce. Il met en évi- 
dence quelques-unes des caractéristi- 
ques les plus avancées de PROLOG et 
nous donne une idée sur ses principes 
généraux. 

La pièce est définie comme un 
ensemble de positions et de trajets. 
Nous voulons que le robot obéisse à 
des ordres tels que « va de la télévision 
au fauteuil ». Il doit trouver de lui- 
même le trajet le plus court. Le but 
donné va (Là-bas) signifie « va d’où tu es 
à Là-bas, par le chemin le plus court ». 

Pour exprimer va (Là-bas), le pro- 
gramme utilise deux clauses. La pre- 
mière est destinée à éliminer le cas où 
l’on demande au robot d’aller là où il 
est déjà. Le programme a besoin d’un 
fait dans sa base de données qui lui 
donne la position en cours du robot 
{àlla porte). La seconde clause utilise ce 
fait pour définir la position de départ. 
Elle appelle ensuite une autre procé- 
dure : valPositiont,Position2). 

Du fait que valPositionl Position?} peut 
être utilisée séparément de va(Position), 
elle vérifie d’abord que lci et Là-bas sont 
des positions qui lui sont connues, et 
même qu'ici est la position en cours. 
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Si ces vérifications échouent, la clause 
est abandonnée et PROLOG passe à la 
suivante. La deuxième clause vallci Là- 
bas) sert à déplacer le robot sur ici s’il 
n’y est pas déjà. Pour cela, elle appelle 
vallcil, puis, lorsque cela a réussi, elle 
appelle valLà-bas). La lecture sous forme 
de procédure de cette clause est 

« Pour aller d’{lci) à (Là-bas), lorsque le 
robot n’est pas déjà (Ici), aller d’abord 
(lci) puis (Là-bas. » La troisième clause 
vallci, Là-bas) ne sert qu’à afficher un 
message d’erreur quand aucune des 
positions n’est connue. 

En supposant que les vérifications 
préalables pour la première clause 
vallci Là-bas) aient été faites avec succès, 
l’objectif intermédiaire suivant à véri- 
fier est touttrouver. C’est un prédicat par- 
fois incorporé à PROLOG, mais on peut 
l’ajouter très facilement (comme 
FORTH, PROLOG peut être facilement 
étendu par la définition de nouveaux 
prédicats, puisque les prédicats utilisa- 
teur ont le même statut que ceux du 
système). Touttrouver comporte trois 
arguments. 


Le premier est le nom d’une varia- 
ble, le deuxième est un objectif, et le 
troisième une variable liste (RL). PRO- 
LOG essaye d’atteindre le but fixé (pla- 
nifier(Ici,Là-bas,[], Route) dans le cas présent) 
autant de fois qu’il le peut. La varia- 
ble du premier argument doit corres- 
pondre à l’une de celles de l’objectif. 
A chaque fois que cela se produit, la 
valeur prise par la variable est ajoutée 
à la liste du troisième argument. Par 
exemple, l’objectif planifier(Positiont, 
Position? [], Route) trouverait une route 
entre la Positionl et la Position?, et mettrait 
ce résultat dans la variable Route. Ici, 
touttrouver recense toutes les routes pos- 
sibles entre lci et Là-bas, et en dresse une 


liste. Nous devons remarquer que nous 
n’avons pas encore eu besoin de défi- 
nir la procédure pour touttrouver. En fait, 
il est normal avec PROLOG de dévelop- 
per des programmes de cette manière. 

De même, nous n’avons pas encore 
vu le prédicat lapluscourtelRL,CourteRoute). Sa 
fonction est de prendre une liste des lis- 
tes {Listel}, et de créer une nouvelle liste 
(Liste?) qui ne comporte que la plus 
courte liste trouvée. Du fait que tou- 
tes les listes de Liste! sont des routes, la 
plus courte liste sera la plus courte 
route. 

Nous avons atteint le point où notre 
robot a calculé la plus courte route 
jusqu’à sa destination. Il ne lui reste 
qu’à y aller. Cela est possible grâce à 
une autre procédure virtuelle, avan- 
cer(Route. Nous avons défini avancer 
comme étant l’énumération des routes. 
Mais une route est en réalité une liste 
d’objectifs PROLOG. Ces derniers 
auraient pu lui être communiqués 
comme un programme à exécuter au 
lieu d’être affichés à l’écran. 

Définissons le prédicat sediriger(Position) 
pour permettre au capteur de détermi- 
ner la Position afin de diriger le robot 
dans cette direction. déplacerlPosition!, 
Position?) est pour sa part défini comme 
devant déplacer le robot d’une position 
à l’autre. 

Ce programme de déplacement de 
robot est écrit par le programme prin- 
cipal lui-même à l’intérieur de la pro- 
cédure planifier. C’est en réalité assez 
simple. On pourrait résumer ainsi 
l’algorithme utilisé : pour trouver une 
route de À à B, trouver d’abord une 
route de À à C, puis de C à B. La pro- 
cédure planifier est récursive. La pre- 
mière clause sert à arrêter la récursion 
lorsque la destination a été atteinte (il 
y a toujours une route de À à À). 

C’est en fait la deuxième clause qui 
fait tout le travail. Sa lecture déclara- 
tive est qu’il existe un plan pour aller 
de À à B par la route R, si : 

1. il existe un chemin de AàC, et 

2. C n’est pas sur la liste déjà vue, V 
(C lui est alors ajoutée pour vous évi- 
ter ultérieurement de tourner en rond), 
et 

3. il existe un plan pour se rendre de 
C en B par la route RI. 

Quand toutes ces conditions sont 
vraies, on en conclut que la bonne 
route, R, est la liste contenant un pro- 
gramme pour aller de À à C, ajoutée à 
la « route parcourue » (contenue dans 
R1). De telles procédures récursives 
sont connues pour être difficiles à sui- 
vre (mettez-les par écrit), mais elles 
donnent une terrible efficacité à 
PROLOG. 


Simulation de robot mobile 
Version prolog standard 


älla porte). 
valLà-bas):- 
valLà-bas):- 
vallci,Là-bas):- 


vallci, Là-bas): 
vallci Là-bas) 
planifier{A,À,-,R]. 
planifier{A,B, V,RI:- 
avancer(Route):- 
direoù:- 


“liste des chemins connus par le robot" / 


chemin(bibli,chaise). 
chemin{chaise, bibl). 


chemin{bibli tv). 
chemin(tv,biblil. 
chemin(tv,tapis). 
cheminltapis, tv). 


chemin(tapis, chaise). 
chemin(chaise, tapis). 


chemin(porte tapis). 
chemin{tapis porte). 


[* la position en cours du robot‘ / 

àlLä-bas), écrire (« J'y suis déjà ! »}, nl,nl,nl. 

ällci),vallci Là-bas). 

position(lci},position(Là-bas).älci},touttrouver{Route planifier(lci, Là-bas, [], Route), RL), 

lapluscourtelRL, CourteRoutel avancerlCourteRoute),retirerlà[ci))ajouteraläl Là-bas), direoû. 

non(ällcil) écrirelx je ne suis pas à »),écrirellci),écrrel« je vais donc d'abord là-bas. »),nl,nl,vallci), va(Lä-bas) 
écrirel« je ne peux aller que là où je connais ma destination »),nl,nl. 


chemin(A,C),nonlappartient{C, VI).ajouterl[C],V,V1},planifier{C,B, V1,R1),ajouter([facelClorienter{A,CIJRt,RI. 
écrirelRoute),nl,nl. /*défini plus tard” / 
àlPosition),écrire(c je suis à »), écrirelPosition),nl,nl,nl. 


let liste des positions qu'il connaît‘ / 


position(porte). 
positionftapis). 
position(tv). 
position(bibli). 
position(fenêtre). 
position(chaise). 


chemin(fenêtre chaise). 
chemin(chaise, fenêtre). 


chemin(fenêtre,bibli}. 
chemin(bibli fenêtre). 


Version micro-prolog 


{à la porte) 
{lva X) 
{va X) 
{lva X Y] 


{lva X Y) 
{planifier X X x1 Z] 
{{planifier X Y x Z) 


(laller Z) 
{ldireoù) 


[Liste des chemins que le robot connaît" / 


{chemin bibli chaise) 


{chemin chaise bibli.} 


{chemin bibli tv) 
{chemin tv bibl) 
{chemin tv tapis) 
{chemin tapis tv) 
{chemin tapis chaise) 
{chemin chaise tapis) 
{chemin porte tapis) 
{chemin tapis porte) 


[position en cours du robot*/ 

{à X (P j'y suis déjà !} PP,PP,PP] 
(à Y) va Y X) 

{position X) (position Y} (à X) 
{touttrouver Z (planifier XY ()Z)X) 
(lepluscourt xy) 

(aller y) 

(DELC {là XI} ((ADDCL (à Y)}) 
(direoù)} 

INONPAS à X) 

{P Je ne suis pas à) (PX) 

{P j'y vais donc en premier.) PP PP 
{va X) (va Y)) 

{P Je ne peux aller qu'aux destinations que je connais) PP PP] 


{chemin X X1} (N'appartient pas X1 x} (ajouter (X1) x xl) 
{planifier X1 Y x1 Z1} 

lajouter (lorienter X1} lavancer X X1)) Z1 Z)} 

{P Z) PP PP] 

là X) (P Je suis en X) PP PP PP] 


‘et liste des positions qu'il connaît‘ / 


{position porte) 
{position tapis) 
{position tv) 
{position bibi) 
{position fenêtre) 
{position chaise) 


{chemin fenêtre chaise) 
{chemin chaise fenêtre) 


{chemin fenêtre bibli} 
{chemin bibli fenêtre) 
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Nouveau Monde Il 


Nous mettons un terme à notre jeu de simulation consacré 
à un voyage dans le Nouveau Monde en donnant ici la seconde partie 


du listage complet. 


me 


Ce programme est conçu pour tourner sur un 
Commodore 64, mais quelques modifications de 
peu d’ampleur lui permettront de fonctionner sur 
Amstrad. Il faudra remplacer par CLS toute men- 
tion de PRINT CHR$(147}. A chaque fois que l’ordi- 
nateur attend que vous appuyiez sur une touche, 
comme dans : 


<n° ligne>GET 1S:1FI$D =«»THEN<n° ligne> 


6538 REM CANOT 

6535 IFM(C1)=1THENRETURN 

6SS6 PRINTCHRS(147) 

6549 MC1)=1 

6350 Ss="VOUS APERCEVEZ UN CANOT+* : GOSUB9 108 
6532 S6="DERIVANT AU LOIN*":G0SUB9108 

6SS4 PRINT : G0SUB3200 

6SSE S#="A LA LUNETTE VOUS CONSTATEZ*" : GOSUB9108 
6358 S$="QU" IL CONTIENT*" :GOSUB9100 

6S6D PRINT :G0SUB9200 

6562 S$="4 PERSONNES*+" : GOSUB9100 

6563 GOSUB9200 


ES64 S$="ET UN GROS COFFRE !+":G0SUB9188 

6566 PRINT :G0SUB9208 

6568 Ss="SI VOUS CHANGEZ DE CAP+"*:G0SUBS100 

6578 Ss="POUR LES SAUVER*" : GOSUB910@ 

6572 Ss="VOUS PERDREZ 2 JOURS DE ROUTE+":G0SUB91008 
6574 PRINT :GOSUBS3208 

63576 Sé="VOULEZ-VOUS LES SAUVER ? (O/N)+":G0SUB 
3100 

6578 INPUTIS:I6eLEFTS(18, 1) 

6580 1F1$<>"0O"ANDIS<2"N" THENGS78 

6585 IF1$="0"THENGER® 

6S88 PRINT :GOSUB9200 

65930 Ss="LE CANOT DISPARAIT AU LOIN...+":G0SUB9188 
65932 PRINT :G0SUB93208 

65% Ss=K$:G60SUB9108 

6396 GETIS:1F19=""THENSS96 


6618 EW=EW+2/7 

6625 IFCN<>15 THENGS63@ 

6627 St="VOUS NE POUVEZ LES PRENDRE À BORD+":GO0SUB9180 
6628 Ss="VOUS N'AVEZ PAS LA PLACE*"*:GO0SUB9108 
6623 GOTO6532 

6S38 X=16-CN: IFX> STHENGSSS 

6632 S#="VOUS N'AVEZ DE PLACE QUE POUR *:GO0SUB9108 
GEST PRINTX:" PERSONNES DE PLUS À BORD" 

6634 PRINT :GOSUB9200 

663S Ss="VOUS SAUVEZ :#*:GOSUB9108 

6638 x=-0 

6648 FORT=1T016 

E64S IFTSCT, 1)<> QTHENGS79 

GESD X=X+1 

6655 IFX>ATHENT=16:G0TO6679 

6668 CN=CN+1 

6665 TSCT, 12=INTCRND(1)#5) +1 

6668 TSCT, 2)=INT CRND(12 #58) +508 

6670 PRINT"1 “:CSCTSCT, 12) 

6679 NEXT 

66898 PRINT :GOSUB9200 

6682 Sé="LE COFFRE CONTIENT :+":G0SUB9108 
6685 FORT=1TOé 

6690 X=INTCRND(1)#1@)+10 

6692 PRINTXIUSCT)F"S DE "#PSCT) 

669% 1FPACT)=-SISTHENPALT) =@ 

EE PACT)=PACTI+X 

6695 NEXT 

6633 60706592 


6708 REM LA PESTE 

6705 1FMC2)=1THENRETURN 

6706 PRINTCHRS(147) 

6718 MC2)=1 

6712 S$="LA PESTE FRAPPE !+":GOSUR9188 
6714 PRINT :G0SUB9208 


Ra eme 2e - mme mme à + 


vous devrez mettre à la place : 
<n° ligne> I$=«»:WHILE 1$=«:1$ =INKEYS:WEND 


Enfin vous devrez introduire la ligne suivante, qui 
provoquera la sélection d’un affichage en mode 
40 colonnes compatible avec le micro-ordinateur 
Amstrad : 


5 MODE 1 


6716 X=1 

6718 FORT=1T016 

6720 IFTSCT, 1)=2ANDTSCT, 2)<>BANDTSCT, 2)<> -S9STHENX 
20:T=16 


6726 IFOA(C1)<>@BANDOA( 1)<)-S9STHENY=S 
6730 I=((X+Y)e10)+5 


6732 1#="VOUS N'AVEZ": IFX=BANDY=QTHENE748 

6734 IFX=1THENSS="AUCUN MEDECIN ":GOSUBS10:1#="ET" 
6736 IFY=ATHEN S$=18+"AUCUN MEDICAMENT*" : GOSUB9 108 
6748 Ss="BEAUCOUP D'HOMMES SONT TOUCHES+" :GOSUB9108 
6745 PRINT :G0SUB9208 

6758 x=0 

6755 FORT=1T016 

6756 IFRND(1)4. STHEN6775 

6760 IFTSCT, 2) ="@BORTST, 2)=-999TMHENG 775 

6765 TSCT, 2)=TSCT, 2)-7 

6770 IFTSCT, 2)<1THENSCT, 2)=-999: X=X+1 

6775 NEXT 

6776 IFY=1THENG788 

6777 Sé="LA MOITIE DES MEDICAMENTS EST CONSOMMEE*" : 
GOSUB9108 

6778 OA(1)=INT((OA(1)/2)+. 5) 

6780 PRINT :G0SUB3208 

6785 1FX=OTHEN6797 

6730 PRINT"ET"5X3 

6792 S#="MEMBRES D'EQUIPAGE MEURENTe" 

6794 IFX=1THENSS="MEMBRE D'EQUIPAGE MEURT+" 


6798 GETIS:1IF18="" THENG798 
6799 RETURN 


6800 REM PIRATES 

6805 IFM(3)=1 THENRETURN 

6818 x=-9 

6812 FORT=1T016 

6S14 IFTSCT, 2)=@0RTSCT, 2)=-SJ9STHENX=X+1 
6815 NEXT 

6816 IFX=16 THEN RETURN 

6818 MCZ)=1 

6820 PRINTCHRS(147) 


6822 Se="DES PIRATES ATTAQUENT LE NAVIRE !+":GO0SUB9108 


6826 IFO0A(C2)=@0R0A (2) =-99STHENK=4 
6828 St="EN DEPIT DE VOS FUSILSe" 


6836 FORT=1T016 
6838 IFTST, 2) =D0RTS(T, 2)=#-S99THENESAS 


X=X+11TSÛT, 2)=-999 

IFX=KTHENT=16 

NEXT 

PRINTX: 

S$="DE L'EQUIPAGE EST TUE*" 
IFX>1THENSS="DE L'EQUIPAGE SONT TUES+" 


PRINT : GOSUB9320@ 
S$=K$ : GOSUBS 128 
GETIS: IF 18=""THENGESS 


REM GOUVERNAIL 
1FMC&) =1 THENRETURN 
PRINTCHR#(147) 
6915 MC4)=1 

6929 St="PROBLEMES DE GOUVERNAIL !+":G0SUB9188 
69325 PRINT :G60SUB9208 

6328 x=4 
6358 
6935 


RESASRBRUURSE 
8 


8 
LI 


FORT=1T016 

IFTSCT, 1)=SANDTSCT, 22C > BANDTS(T, 22€> -SISTHENX 
“17-16 
6938 MEXT 
6940 S$="VOUS AVEZ UN CHARPENTIER, MAIS+"* 


6945 IFX=4THENSS="VOUS N'AVEZ PAS DE CHARPENTIER, ETx* 


Ee350 60SUB3100 

6955 Ss="LE VOYAGE PRENDRA+":G0SUB9108 
6960 PRINTX:"SEMAINES DE PLUS. * 

6SES EW=EW+X 

6367 PRINT :G0SUB3200 

6969 Ss-=Ks:G0SUBS108 

6970 GETIS:1F18=""THENSI78 

6973 RETURN 

7008 REM TEMPETE 

7085 1FM(5) =1THENRETURN 

7018 PRINTCHR#(147) 

715 MCS)=1 

7026 Ss="UN ORAGE*+" :G0SUBS188 

7022 Ss="VOUS SECOUE ! +" :GOSUB9188 
7025 PRINT :GOSUB3200 

7028 x=2 

7030 FORT=1T016 

7835 IFTSCT, 1) =4ANDTSCT, 2)C>BANDTS CT, 22 -SISTHENX 
=1:7=16 

7038 NEXT 

7O6® SS="VOUS AVEZ UN NAVIGATEUR, MAIS" 


7045 IFX-2THENSS="VOUS N'AVEZ PAS DE NAVIGATEUR ÊTe"* 


7849 GOTOE2S8 


7050 REM L'ILE 

7855 IFM(6)=1THENRETURN 

7068 PRINTCHRS(147) 

TOES M(6)=1 

7878 S$="VO0S CARTES INDIQUENT UNE ILE+":G60SUB9100 
7071 S$="OU VOUS POURREZ+" : GOSUBS3100 

7072 S#="RENOUVELER VOS PROVISIONS+" :GO0SUB91B8 
7073 S$="MAIS VOUS Y RENDRE*" : GOSUB9100 

7074 St="VOUS PRENDRA DU TEMPS EN PLUS*":GOSUBS 


7075 PRINT :G0SUB92008 

7088 Ss="VOULEZ-VOUS Y ALLER ? (O/N)":G0SUBS100 
7082 INPUTIS: IS=LEFTSCI8, 1) 

7884 1F18<2>"O"ANDIS C>"N"THEN7O82 

7086 PRINT :G0SUB9200 

7090 1F1$="N"THEN7145 

7100 S$="VOUS ATTEIGNEZ L' ILE+":GOSUB9108 
7185 Ss="ET Y RECUEILLEZ:+" :G0SUB9108 

7106 1FB$="N"THEN7110 

7107 PRINT :GO0SUB9200 

7108 PRINT"RIEN DU TOUT!" :G0SUB9288 

71093 Ss="(SOUVENEZ-VOUS DE L'ALBATROS! ) ":GOSUBS108: 
G0T07130 

7119 FORT=1T04 

7112 IFRND(1)<.2STHEN7129 

7115 X=INTCRND(1)+18)+5 

7128 PRINTXIUSCT)3"S DE *3P#CT) 

7122 IFPACT)=-SSSTHENPACT) =9 

7125 PACT)=PACT)+X 

7129 NEXT 

7130 S$="LE VOYAGE VA PRENDRE*" : GOSUB9108 
713S X=INTCRND(C1)82)+1 

7139 PRINTX::S6="SEMAINES DE PLUS«* :G0SUB9 188 


7140 EW=EW+X 

7145 PRINT:G0SUB9200 

7158 Ss=KS:60SUB9108 
7155 GETIS:1IF18=""THEN71SS 
7159 RETURN 


7200 REM MUTINERIE 

7210 MF=8 

7215 1FH$="0" THENMF SMF +30 

7228 NC=0 

7225 FORT=1T016 

7228 IFTSCT, 1)=SANDTSCT, 2) >BANDTSCT, 2302 -SISITHENN 
C=11T-16 

7230 NEXT 

7235 IFNC=OTHENMF =MF +30 

7240 IFAS="0" THENMF=MF-20 

1FB$= "0" THEMMF =MF +350 
IFCN212THENMF =MF +38 
IFWT>MOTHENMF MF +38 
IFWICBTHENMF =MF + € CHK—8) 18) 
7275 MF=MF+ INT CRNDC1) #38) 


PFE 


IFMFC7S THENRETURN 


7288 

7282 PRINTCHRS(147) 

7284 IFMFD100THEN7 308 

7285 S$="LES CONDITIONS DE VIE+":G0SUBS180 
7286 S6="SE FONT MAUVAISES+" : GOSUB9100 
7287 S6="ET CERTAINS PARLENT*" : G0SUB9188 
7288 S$="DE SE MUTINER! ! ! “:60SUB93108 
7290 PRINT :GOSUB93208 

7292 S6=K$:G0SUB9108 

7294 GETIS:IF18=""THEN7294 

7293 RETURN 


7388 PRINTCHRS(147) 
7385 PRINT :G0SUB9200 
7318 Ss="L" EQUIPAGE S'EST MUTINE*" :GOSUB9188 
7312 S6="PARCE QUE :+"1G0SUB9100 
7313 X=0 
7314 1FHS "0" THEN7320 
T31S GOSUBS200: X=X +1: PRINTX# 
7316 S#="DES HOMMES ONT ETE MIS" :GOSUB3188 
7318 S#="A DEMI-RATION*" : GOSUB9108 
7320 IFNC CATHEN7S2S 
7321 GOSUBS200: X=X+1:PRINTXE 
7322 S$="IL N'Y À PAS DE CUISINIER*":G0SUB910@ 
7324 S6=" ET LA NOURRITURE EST INFECTE" :60SUB9100 
7325 1FB$<) "0" THEN7SSO 
7326 GOSUBS200: X=X+1:PRINTXS 
7327 S6="VOUS AVEZ TUE L' ALBATROS! ":G0SUB9108 
7338 IFCNC1STHEN7SSS 
7331 GOSUBI200! X=X +1: PRINTX 5 
7332 S6="LE NAVIRE EST SURPEUPLE*" :G0SUB9188 
7335 IFMO>=WT THEN7349 
GOSUBI208 : X=X+1 : PRINTX3 
7337 S4="IL N'Y A PLUS ASSEZ D'OR*":G0SUB9100 
7338 S$=" POUR LES SALAIRES! ":60SUB9100 
7348 IFWK<=B THEN73S0 
7341 GOSUBI208: X=X+1 : PRINTXE 
7342 S6="ILS SONT EN MER*":G0SUB9188 
7343 St=" DEPUIS PLUS DE 8 SEMAINES!“ :G0SUB9108 
7350 PRINT: G0SUB9208 
7360 Ss="L'EQUIPAGE S'EMPARE DU NAVIRE*":G0SUB9108 
7362 


GOSUB3288 
7363 S#="ET VOGUE AU LOIN+":G0SUB3108 
7378 GOSURS200 
7372 S$="IL VOUS LAISSE À LA DERIVE+" :G0SUB9180 
7373 S$="DANS UN CANOT+":GO0SUBS100 
73574 S$="DIEU AIT PITIE DE VOTRE AME!":G0SUBS100 
7375 PRINT :60SUB3200 
7380 PRINT" FIN DE LA PARTIE" 
7382 END 


9180 REM RALENTIT AFFICHAGE 

9118 SeLEN(SS) 

9115 S=5+20 

9128 FOR H=1 TO SINEXT 

3130 PRINT 

3148 PRINT:PRINT 

9198 RETURN 

9200 REM BOUCLE DE RETARD 

9218 FORSS=1TO1BOQ:NEXT 

9299 RETURN 

S300 REM REDUCTION PAR WF DE LA FORCE DE L'EQUIPAGE 
9310 FORS1=1T016 

9315 IFTS(S1, 2) "OTHENSS40 

9320 TS(S1,2)=TS(S1,2)-WF 

9330 IFTS(S1, 22€ 1THENTS(S1, 2)=-999 
S348 NEXT 

9333 RETURN 


10000 REM ARRIVEE DANS LE NOUVEAU MONDE 
10081 PRINTCHRS(147) :G0SUB3208 


18085 S#="VOUS VOICI DANS LE NOUVEAU MONDE+" :GOSUBS1 00 18300 REM REVOLUTION 

18086 PRINT :G0SUBS288 18385 1FOA(2) =GTHENRETURN 

10007 Ss="SUR LES BORDS DU RIVAGE+" :GOSUB9100 10318 PRINTCHRS(147) :GOSUB9200 

10009 Ss="DES INDIGENES APPARAISSENT*" : GOSUB91 20 19315 S$="AU COURS DE LA NUIT UN RIVAL+":G0SUB9100 
LOIR ENT LOS 18316 S#="DU CHEF VOUS REND VISITE*":G0SUBS128 
10015 IFOR(2)=OTHEN10050 18317 PRINT:G0SUB9208 

10817 S6="ILS SONT ARMES ET ONT L'AIR FEROCE 


18318 S$="IL VEUT ACQUERIR VOS FUSILS*«":GOSUB9100 
18320 S#="POUR UN COUP DE FORCE+*" : GOSUB910@ 

10522 PRINT:GO0SUB3200 

10524 S$="IL OFFRE 39 PERLES PAR ARME*":GOSUB9100 
10326 S#="ACCEPTEZ-VOUS ? (O/N)«" :GOSUBS188 

10528 INPUTIS: IS=LEFTSC18, 1) 

10338 1F18<)"N"ANDIS >"'O"THEN18328 
10332 1F1#="0"THEN18488 

18234 PRINT:G0SUB3200 

10336 Sé="LE CHEF L' APPREND*" : GOSUB91 8@ 

10338 S#="ET POUR VOUS REMERCIER*" : GOSUB9100 
10348 Ss="VOUS DONNE DES PROVISIONS*" :GOSUBS10@ 
19344 GOSUB3200 

10545 1F RNDC1XC.75 THEN 18358 

10346 S$="ET 58 PERLES+" :GOSUB9188 

18348 AD(1)=A0(1)+58 

10350 PRINT :G0SUB9208 

18352 Ss=K$:60SUB910@ 

10354 GETIS:1F1$=""THENIBISA 


10018 PRINT :G60SUB93200 

10020 S$="OUVREZ-VOUS LE FEU ? CO/N)*+*:GOSUB9100 
10022 INPUTIS:IS=LEFTS(IS, 1) 

10824 IF1$@"N"ANDIS (Y'O"THEN12022 

10026 1IFI$="N" THEN10850 

10028 PRINT :G0SUBS3208 

10850 Ss="DE NOMBREUX INDIGENES SONT TUES+":GOSUB9100 
10032 S$#="MAIS LA NUIT+":GO0SUBS108 

10034 Ss="D’ AUTRES REVIENNENT*" : GOSUBS100 

10036 S#="ET BRULENT VOTRE VAISSEAU! ! +" :GOSUB9108 
10038 PRINT :PRINT : GOSUB9200 

10048 Ss=" FIN DE LA PARTIE" :GOSUB9108 

10842 END 

10044 GOTO18042 

10058 Ss="ILS VOUS MENENT À LEUR CHEF+":G0SUBS188 
10052 5#$="IL A DEJA RENCONTRE+" : GOSUB9180 

10054 S$="DES EUROPEENS ET SE MONTRE AMICAL+" :GOSUBS9108 
10056 GOSUB3200 


10058 Ss="L'EQUIPAGE EST ACCUEILLI AVEC JOIE" :G0SUB91 00 10339 RETURN 

10068 PRINT :G0SUB3208 18488 PRINTCHRS (147) :GOSUB9208 

10062 S#="LE LENDEMAIN LES ECHANGES COMMENCENT*" : GOSUB9188 18485 IFRND(1)€. 7STHEN1BAS® 

18064 PRINT :G0SUB3208 18418 S6="LE SOULEVEMENT REUSSIT ! +" :G0SUBS100 
12066 S$=K$ :G0SUBS 100 18412 PRINT:G0SUB3208 

10068 GETIS: IF 18="" THEN1 0068 18415 S#="LE NOUVEAU CHEF +" :GOSUBS108 

10069 RETURN 18428 S#="VOUS OFFRE DES PROVISIONS+" :GOSUBS180 


10425 S#=*POUR LE RETOUR. +" :GOSUB9120 


10429 AO(1)=A0(1)+COA(2)#38) :1REM ADD PEARLS 
19430 OA(2)=@ 


18878 PRINTCHRS(147) 1REM COMMERCE ee NI " 
@AS@ S8="LE SOULEVEMENT ECHOUE ! +" : GOSUB91 28 
18872 IFOA(2)=@THEN10088 À : 3 


10874 St="LE CHEF NE VEUT PAS«":G0SUB9100 18452 PRINT :G0SUB3200 
10876 S#="DE VOS FUSILS - TROP DANGEREUX #!":GOSUBS188 10455 S$="LE CHEF, FURIEUX+":GOSUB9108 


10878 PRINT:008UB3288 10457 S#="BRULE VOTRE NAVIRE*" :G0SUB3108 
18888 1IFDAC3)C> BORDA(4)€> BOROA (5) © BOROR (6) > ATHEN 10458 S#="ET REPREND SON BIEN! +" :GOSUB9188 
10085 Ss="IL NE RESTE PLUS RIEN+":60SUB9108 18453 PRINT :GOSUBS200 

19050 S8="A ECHANGER*" : GOSUB9180 18468 S$=" FIN DE LA PARTIE! ! !+":GOSUB9180 
1085 GOTO10838 18462 END 

18188 S#="EN ECHANGE DES COUTEAUX+" :GOSUB9180 18464 GOTO18462 

18102 Ss="SEL, TISSUS OU BIJOUX" :GOSUB9188 12500 REM FIN DE VOYAGE 


19104 S$="IL OFFRE DES PERLES, DES STATUES+" :G0SUB91808 
18106 S$="ET DES EPICES*" : GOSUB9108 

18108 PRINT :G0SUB9208 

10118 Ss="AU DEPART DU PORT ELLES+*" :GOSUB9100 

10112 S#="VALAIENT :#*:GO0SUB9100 

10114 S#="PERLES -2 PCS D'OR CHACUNE*" :GOSUB9100 
19116 S#="STATUES .-2 PCS D'OR CHACUNE*" : GOSUB918@ 
18118 S#="EPICES -1 PC D'OR LE GRAMME+":G0SUB9108 
19128 PRINT :G0SUB9200 


18581 PRINTCHRS(147) :G0SUB3208 

18585 Sé="UN EQUIPAGE EN FORME ET+":G0SUB9180 
10507 S#="DES VENTS FAVORABLES+" :GOSUBS 100 
18508 S$="PERMETTENT UN VOYAGE DE & SEMAINES": 


10122 S#="MAIS CELA AURA PEUT-ETRE*" :GOSUBS 108 PAPER 
18124 S#="CHANGE AU RETOUR*":GOSUB9180 18512 Wu=e 

18125 PRINT:G0SUBS200: S8-K8 : GOSUB9108 1816 FORT=LTOS 

10126 GETIS:1F18=""THENID126 18516 Mi=biié (BeCC CT) UGC TD 

18138 FORT=STO6 18518 NEXT 

18135 1FOACT) =OTHEN10200 18519 PRINT:G0SUB9200 

10148 PRINTCHRS (147) :GOSUB3200 10520 S6="TOTAL DES SALAIRES DU RETOUR+" :GOSUB9100 
18145 PRINT"VOUS AVEZ:"1DACT) 5 10522 PRINTMW:"PIECES D'OR" 

19158 IFT=STHENSS="SACS DE SELe" 18524 PRINT :G0SUB3200 

19151 IFT=ATHENSS="BALLOTS DE TISSU" 18526 S8="AU RETOUR" :GOSUBS1 88 

18152 IFT=STHENSS="COUTEAUXe" 18528 S#="VOUS VENDEZ VOS TROUVAILLES*" :GOSUB91 08 
18153 1F7=6THENSS="BIJOUXe" 18530 S6="ELLES VALENT MAINTENANT : +" :GOSUBS91 00 
18155 GOSUBS180 . 18532 PRINT"PERLES “1V2(1) 1“PIECES D'OR" 

18156 PRINT :G60SUB9200 18534 PRINT*STATUES *1V2(2):"PIECES D'OR" 

10160 S#-"LE CHEF VOUS EN OFFRE+" :G0SUB9108 18536 PRINT“EPICES “1V2C3) 3" PIECES D'OR“ 

18165 PRINT" OU" :DACT)#ÆQ(T-2, 12 5 "PERLES" 18538 PRINT:"S8="S0IT UN TOTAL DE+":G0SUB9188 
18166 PRINT“ QU“:0ACT)#EQ(T-2, 2) 5 "STATUES" 18548 X=(AOC1)#V2(1))#CADC2) #V20(2) )+(AOCIIEVZCTI D 
18167 PRINT" QU" 0ACT)#EQCT-2, 3) 1"GRAMMES D' EPICE" 18542 PRINTXI"PIECES D'OR" 

10-38 PRINT:GOSUBS200 18545 PRINT:S#=K#:G0SUB 9108@:PRINT 

18178 S="VOULEZ-VOUS DES PERLES, STATUES+": 10547 OET I6:1F I6=*" THEN 18547 

coeuss:es 18558 Ss="VOUS AVEZ MAINTENANT :+" :GOSUBS1 80 


10552 PRINTMO+X:"PIECES D'OR" 

10555 PRINT :G0SUB9288 

18536 S$="LE TOTAL DES SALAIRES POUR LE VOYAGE EST DEe": 
GOSUBS 188 

18557 PRINTWT+WW:"PIECES D'OR“ 

18559 PRINT :G0SUBS208 

18568 Ss="IL VOUS RESTE DONC:+"G0SUB9108 

10562 Z=MQO+X-UT-4N4 

10565 PRINTZ:"PIECES D'OR" 


10172 S#="OU DES EPICES ?*":GOSUB9100 

10:76 S#="CENTREZ 1,2 OÙ 3)+":G0SUB9100 

10175 INPUTIS 

18176 1=VAL(18) : 1° 1 10RLOSTHEN1O1 74 

18188 AOCI)=AOC1)+(OACTD #ERCT-2, 13) 

18190 ©RINTIPRINTYLES “1TSC1):" SONT RAMENEES À SORD" 
-2192 Sé=K$:60SUBS122 

10194 GETIS:1F 18m" " THEN101 94 


ere 18566 PRINT: G0SUB3200 

TOO PRENTIERTNT I RORRRES 10567 PRINT:S#="VOUS ETES VRAIMENT : +" :GOSUBS 120: PRINT 
10215 96=* FIN DES ECHANGEB*" 1008089189 18968 IF Z»3208 THEN S8="UN SUPER-CAPITALISTEe" :GOSUBS 
19216 PRINT:G0SUB9202 100:END 

18218 Ss="VOUS AVEZ ACQUIS:«" :G0SUB9188 18569 IF 172508 THEN S8="UN MAITRE MARCHAND+" :GOSUB91 20: 
18228 PRIATAO(L) + "PERLES" END 

10222 PRINTAO(2) t "STATUES" 18570 IF 2>2000 THEN SS="UN HONNETE CABOTEUR*":GOSUB 
19224 PRINTAO(3) 1"GRAMMES D'EPICE* S100:END 

10226 PRINT :GO0SUB3208 12571 IF 1>1008 THEN S#="UN CABOTEUR DE PEU DE POIDS*": 
18228 58=-K8:G0SUB9188 GosuBS180: END 

10223 GETIS: IF 16=""THEN12229 18572 S$="PEU DOUE POUR LE COMMERCE+" 

1027@ RETURN 18573 GOSUBS:108:END 
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amer: DEEE NS NAME 


Nous étudions les routines 

de ROM utilisées par le système 
d’exploitation du Spectrum pour 
accéder au système de fichier 
sur bande. 


samoeeen CORDON à RS 


Un Sinclair Spectrum standard n’est pourvu que 
d’une interface de bande pour lui permettre de 
sauvegarder et de charger les programmes et les 
données. L’adjonction de l’Interface 1 nous 
donne toutefois accès aux Microdrive, à l’inter- 
face série et aux réseaux locaux. Ceux-ci peuvent 
être considérés comme d’autres systèmes de 
fichiers. Sur le Spectrum, nous utilisons une autre 
syntaxe pour différencier les commandes concer- 
nant le système de fichier sur bande de tous les 
autres systèmes de fichiers disponibles sur l’ordi- 
nateur. Par exemple, la commande : 


SAVE « fred 1» LINE 1 


sauvegardera un programme BASIC sur bande 
afin qu’ilcommence à tourner à partir dela ligne 1 
où il est rechargé dans le Spectrum. De même, 
pour sauvegarder un programme sur le système 
de fichier Microdrive, il faut employer la com- 
mande très compliquée : 


SAVE *«my;t;« fred 1 » LINE 1 


La partie « m» de l’instruction spécifie que le 
Microdrive est utilisé; le 1 suivant indique le 
numéro du lecteur requis; et le nom de fichier 
— ( fred 1» dans ce cas — suit ce dernier. Nous 
verrons ultérieurement comment fonctionne le 
système de fichier Microdrive. Ici nous allons 
examiner l’utilisation du système de fichier bande 
à partir de nos programmes en langage machine. 

Indépendamment des données sauvegardées 
sur bande, il est toujours organisé comme l’indi- 
que la figure. Les 19 premiers octets envoyés 
à la bande sont considérés comme l’en-tête 
(HEADER), et ces octets contiennent les données 
relatives au bloc de données suivant sur la bande. 
Les premier et dernier octets de l’en-tête sont 
fournis par les routines de système d’exploitation 
qui écrivent les octets de données sur la bande. 
Les autres octets doivent être spécifiés avant 
d’appeler la routine ROM qui écrit les données 
sur bande. L’octet « type » indique au SE, au 
chargement, la nature des données dans le bloc. 
Ensuite vient un nom de fichier sur 10 octets — 
c’est pourquoi les noms de fichiers sont limités 
à 10 caractères sur le Spectrum. Même lorsque 
le nom de fichier a moins de 10 caractères, les 
espaces restant dans le nom de fichier sont rem- 
plis par le code ASCII pour un espace (32). Les 
données de l’en-tête, à partir de l’octet 11, four- 
nissent d’autres détails au SE, comme l’informa- 
tion concernant l’endroit où sont chargées les 


Mesures de bande 


Indique un en-tête (HEADER). 


0 pour un programme 
BASIC; 

1 pour un tableau de 
nombres; 

2 pour un tableau de 
chaînes; 

3 pour un fichier CODE. 


_— 


10 octets pour le nom de 
fichier. 


Longueur du bloc 
données à suivre. 


Si programme 8aAsic contient 
numéro de ligne où le 
programme commence, ou 
l'adresse de début de code à 


sauvegarder. 
Pour un programme BASIC, c’est 


la longueur de programme. 


octet hi 
17 w - J Utilisé comme vérification sur 
Sac les données par le SE. 
_ Silence 
ÿ FRS Indique un bloc données (DATA). 
lE: MÉSETT Ensuite, suivre les données à 


sauvegarder. 


Tout enregistré 

Le système de remplissage 
du Spectrum sauvegarde 
les données en deux 
étapes. Un bloc en-tête 
(HEADER) de 19 octets est 
sorti d'abord; il contient 
l'information relative 
au bloc de données 

(DATA) qui suit. 

Son format est toujours 
le même. L'octet de 
parité final du bloc est 
généré par le SE selon 
le contenu des octets 
précédents. || est 


du chargement. 
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données en mémoire. L’octet final de l’en-tête 
sert à vérifier des erreurs au moment où la bande 
est lue — si quelque chose est détecté, le message 
d’erreur approprié est généré. 

Le bloc de données principales commence lui- 
même par un seul octet contenant la valeur 255; 
il est également fourni par la routine ROM écrire 
sur bande. Puis viennent les données, suivies par un 
autre octet de contrôle, également généré par la 
routine écrire sur bande. Dans les blocs en-têtes et 
données, tous deux, la valeur réellement écrite 
comme dernier octet du bloc dépend des octets 
émis immédiatement avant elle. 

Voyons maintenant comment nous pouvons 
utiliser les routines d’interface cassette à partir 
de nos programmes en langage machine. Les rou- 
tines ROM concernées par les opérations de 
bande sur lé Spectrum se trouvent dans les adres- 
ses comprises entre &04C2 et &09F3 de la ROM 
Spectrum. C’est un assez beau morceau de logi- 
ciel! Rien d’étonnant à cela, parce que toutes les 
opérations de synchronisation et la génération de 
son pour entrer l’information sur bande sont fon- 
dées sur le logiciel dans le Spectrum. 

Il n’y a aucune variable système concernée spé- 
cifiquement par les opérations de bande, mais le 
tableau suivant en contient quelques-unes qui ser- 
vent « incidemment » aux routines. 


Les variables système VARS, ELINE et PROG ser- 
vent aussi lorsqu’on charge l’information de la 
bande dans le Spectrum. 

Tout d’abord, considérons l’opération de sau- 
vegarde de données sur bande — la routine qui 
fait cela se trouve à l’adresse ROM &04C2.. Habi- 
tuellement, cette routine est appelée deux fois, 
d’abord pour sauvegarder l’information d’en-tête 
et ensuite pour stocker les données proprement 


dites que nous voulons sauvegarder sur bande. 


n 2 


Adresse de début d’en-tête ou 
début de données 


Comme le montre ce tableau, le registre IX est 
utilisé pour pointer les données à sauvegarder. 
Pour expliciter cela, considérons un exemple sim- 
ple de la manière dont on sauvegarde un bloc de 
données sur bande. Le programme suivant sau- 
vegardera 100 octets de données (à partir de 
l’adresse ROM 000) sur bande. 


sroutine to save 188 bytes, starting address 
8088, to tape 


; 
;send header 


3E88 ld a,8 indicate a HEADER BLOCK 

DDES push ix isave ix on stack 

DD21D328 Id i-,header jadd, of header block 

111188 Id de,17 ino of header bytes 

CDC284 call #84c2 iwrite header to tape 
send data 

DD216888 1d ix,8888 j;add of ist byte to save 

116488 ld de,188 ino of bytes to be saved 

3EFF ld a,255 indicate a DATA BLOCK 

CDC284 call #B4c2 write data to tape 

DDE 1 pop ix srestore IX value 

c9 ret back to BASIC 

83 header: defb 3 idata type 3=CODE block 

54455354 defm "TESTPROG ;f/name+spaces=18 chars 

64 defb 188 :lo-byte of data-length 

88 defb @ shi-byte of data-length 

8e defb @8 ilo-byte of start add. 

88 defb 08 ‘hi-byte of start add. 

80 defb 88 sused for BASIC only 

88 defb 88 tfor start line no. 


L’appel de cette routine sauvegardera la zone 
adéquate de mémoire. Toutefois, aucun message 
ne sera affiché (comme ce serait le cas avec des 
routines de manipulation de bande à partir du 
BASIC). En fait, cela ne pose pas de problème 
puisque les données sur bande peuvent être 
rechargées pour voir si le programme a correcte- 
ment fait son travail, à l’aide de cettecommande : 


LOAD « TESTPROG » CODE 40000 


Comparons maintenant les octets chargés aux 
octets se trouvant entre 0 et ® en ROM. 
Rappelez-vous que, bien que le bloc de données 
d’en-tête commence par l’octet type, le premier 
octet réellement émis sur la bande est fourni par 
le SE (0 pour l’en-tête et 255 pour un bloc de 
données). 

Une modification utile de ce programme peut 
vous permettre de sauvegarder un programme 
BASIC à partir de l’intérieur d’un listage en-lan- 
gage machine. Le bloc en-tête (HEADER) à la fin de 
notre précédent listage doit être modifié pour lire: 


8 header: defb 8 :8=BASIC program 

73737373 defm “sssss ;fname filled to 18 chars 
sssss" 

88 defb nn ;lo-byte) length of 

88 defb nn 3hi-byte)} progtvariables 

88 defb nn :lo-byte} start line 

88 defb nn thi-byte} number 

88 defb nn 1lo-byte} length of 

88 defb nn shi-byte)} program only 


La longueur du programme et des variables 
peut être trouvée en soustrayant la valeur conte- 
nue dans PROG de la valeur contenue dans ELINE, 
et la longueur du programme seul peut être obte- 
nue en soustrayant la valeur contenue dans PROG 
de celle qui est contenue dans VARS. Si vous ne 
voulez pas que le programme commence à tour- 
ner une fois chargé, il suffit de mettre l’entrée 
« numéro de ligne auquel le programme doit 
commencer à tourner » dans le listage à 32768. 
De même, nous pouvons simuler la commande 
SAVE SCREENS à partir du langage machine en spé- 


cifiant l’adresse de départ du code à sauve- 
garder, 840, et la longueur, &1B00. 

La routine ROM qui charge les données à par- 
tir de la bande est aussi appelée deux fois : une 
fois pour l’en-tête (HEADER), et ensuite pour le 
bloc de données (DATA) proprement dit qui doi- 
vent être chargées. La routine est située à 
l’adresse 80556 en ROM et ses exigences d’entrée 
sont données dans le tableau suivant (ainsi que 
les vérifications de code) : 


0 pour en-tête, 255 pour bloc 
données 


Pointe l'emplacement en 
mémoire dans lequel les octets 
doivent être chargés 


Nombre d’octets à charger; D 
doit être compris entre 0 et 254 


Nous aurons aussi besoin de mémoire de tra- 
vail pour cette routine : environ 34 octets ou suf- 
fisamment pour accommoder deux blocs en-tête. 
La raison en est évidente. Afin de charger un 
fichier nommé à une adresse en RAM que nous 
spécifions, il faut d’abord placer un second bloc 
en-tête contenant des détails du fichier que nous 
voulons charger. Puis nous comparons les don- 
nées en-tête des fichiers sur bande avec l’en-tête 
que nous avons placé en mémoire afin de locali- 
ser le fichier dont nous avons besoin. 

En appelant la routine (en 80556), le drapeau C 
devrait être mis comme indiqué dans le tableau. 
Si l’on vérifie une partie de code, celui-ci devra 
être placé à l’adresse pointée par le registre IX. 
En quittant la routine ROM « charger à partir 
de bande », le drapeau C indiquera le résultat de 
l'opération. S’il est mis à 1, le chargement se fait 
alors doucement. Mais si, par exemple, vous ten- 
tiez de charger un bloc en-tête, et que la première 
chose rencontrée sur la bande était un bloc de 
données, alors le drapeau C sera mis à 0. (Toute 
bande chargeant des erreurs sera manipulée par 
le SE Spectrum.) Considérons maintenant un 
exemple simple qui chargera un en-tête de la 
bande en RAM. 


;load à header from tape into RAM 
; 


37 scf sset carry 1=LOAD 

3E088 1d a,8 :8 indicates a header 
DDES push ix save ix on stack 
DD2148EE 1d ix,61888 tload header to 61888 
111188 1d de,17 sno of bytes in header 
CD5685 call 40556 ;do it 

DDE 1 pop ‘ix trestore ix 

c9 ret 


Une fois que l’en-tête est chargé, nous pouvons 
l’examiner. Nous pouvons comparer le nom de 
fichier à celui qu’il nous faut, nous assurer que 
c’est le type de fichier correct, et vérifier la lon- 
gueur du bloc de données si nous en avons 
besoin. Le programme suivant vérifie seulement 
le nom, et s’il est correct il charge le bloc de don- 
nées (DATA) suivant l’en-tête (HEADER) en mémoire 
à une adresse particulière. 


slocate and load TESTPROG 


; 


DDES push ix° ssave IX on stack 
37 loop: scf sset carry for LOAD 
3E88 Id a,.û :8=BASIC file 
111188 1d de,iy ;no of bytes in header 
DD21CA2B 1d ix,head2  ;load header into head2 
CD5685 call #8556 
D27B2B jp nc,loop if no header then again 
868A 1d b,18 sno of bytes in fname 
118428 1d de,head+i ;point to desired f/name 
21CB2B 1d hl,head2+1 point HL to found fname 
iA name: Id a,(de) ;get header char in a 
BE cp  {(hl) ;comp with found header 
2887 jr nz,no different so exit loop 
13 inc de sget next char 
23 inc h1l 
85 dec b sdecrement counter 
28F7 jr nz,name same so check next char 
1882 ir ok +all chars checked + ok 
18DB no: jr loop scheck failed, try again 
;found right header so prepare to load data 
DD21B92B ok: 1d ix,head get head in ix 
DDéE8D id 1,(ix+13) get address to 
DDé668E 1d h,(ix+14) load data into 
ES push h1 spush address onto stack 
DDE 1 pop ix sand get it into ix 
3EFF 1à a,255 sindicate load data 
inext instruction requires user to insert data 
length 
114F2B 1d de,nn sinsert data length 
37 scf jindicate a LOAD 
CD5685 call #8556 sdoit 
DDE 1 pop ix srestore ix 
c9 ret 
snow follow details of desired #/name 
83 head: defb 3 sindicates CODE block 
54455354 defm “TESTPROG" ;#/name 
88 defb 8 juse for data length 
88 defb 8 sdata-length hi-byte 
48 defb 72 ;lo-byte for load 
EE defb 238 jaddress of 61888 
68 defb @ jused for BAS, prog only 
88 defb @ ; ditto 
now follows space for header loaded for 
checking 


head2: defs 17 


Là encore, aucun message n’est affiché à 
l’écran pendant cette opération. La routine char- 
gera un bloc de données appelé TESTPROG à 
l’adresse spécifiée dans la zone en-tête de 
mémoire. La routine peut servir à charger des 
fichiers de noms différents, et l’on peut aussi 
ajouter du code pour vérifier que le type de 
fichier est correct. 

Nous concluons cette discussion des opérations 
de sauvegarde et de chargement du SE Spectrum 
par un court programme qui lit les en-têtes de 
fichiers à partir d’une bande et affiche les détails 
concernant le fichier — longueur du fichier, 
adresse de début, etc. — à l’écran. La routine en 
langage machine est stockée dans l’instruction 
DATA, et elle charge simplement un bloc en-tête 
comme indiqué précédemment, puis examine le 
bloc à partir du BASIC. 


5 CLEAR 59999 

18 FOR 1=8 TO 19 

28 READ A:POKE (68888+1) .A 

34 NEXT 1 

48 RANDOMIZE USR 68888 

58 LET type=PEEK 68828 

68 LET length=PEEK 68831+256XPEEK 68832 

78 LET start=PEEK 68833+256XPEEK 68834 

88 LET L$="" 

96 FOR 1=68821 TO 68838: LET L#=L#$+CHRS(PEEK 1): NEXT 1 

188 PRINT “Name: ";L$ 

118 IF type=8 THEN LET #$=" BASIC" 

126 IF type=1 THEN LET #$="Number Array" 

138 IF type=2 THEN LET #$="String Array" 

148 IF type=3 THEN LET #$="CODE* 

158 PRINT "Type: ";#f$ 

168 1F type=8 THEN PRINT "Auto Run line number: ";start 

178 IF type(>8 THEN PRINT "Start address: "istart 

188 PRINT "Length: “;length 

198 GOTO 48 

288 DATA 221,229,62,8,55,221,33,116,234,17,17,8,285,86, 
5,48,241,221,225,261 


1839 


D.C. A © | 


Rien de bien difficile dans ce programme écrit par Pierre Monsaut 
pour le Commodore 64. Mais prudence, n’oubliez pas de l’enregistrer 
avant de le faire tourner. 


.S REM xxxxxxxxxx 

19 REM x D.C.A. x 

15 REM xxXXxXXxXXX 

28 GOSUB 1888 

30 GOTO ?28 

198 A$=RIGHT$CAS ,39 +LEFT$CA$, 1) 
119 B$=RIGHT$CB$ ,1 J+LEFT$CB$,39) 
128 PRINT A$ 

140 PRINT B$;:HH$; 

200 GET *X$ 

218 IF X$<>"" AND M=MI THEN M=M1-80:NM=N 
M-1:GO0TO 238 

220 IF M<omI THEN M=M-88 

230 IF M<2M2+80 THEN 258 

248 1F PEEK(M2-12<>32 THEN 508 
258 IF M<>M1+8@ THEN 278 

268 IF PEEKCM1+12)<232 THEN 600 
276 IF M=MI THEN 318 

288 POKE Mm,CM 

298 POKE M+N,MC 

308 IF M+88<2MI AND M<>M1 THEN POKE M+88 


318 IF M<1964 THEN M=MI:GOTO 728 

328 IF NM<1 AND M=MI THEN 4080 

338 GOTO 188 

508 B$=LEFT$CB$,17 )+01$+RIGHT$CB$,16) 
550 GOTO 658 

608 A$=LEFT$CA$,17)+01$+RIGHT$CA$,16) 
658 POKE Mm-88.16@ 

668 POKE (M-88 j+N,2 
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6706 POKE M+88,CR 

688 S=S+1 

2708 IF S>1 AND INT(S/18)=S/18 THEN GOSUB 
8308 

718 M=MI 

220 FOR 1=1 TO 28 

738 PRINT CHR$C17); 


748 NEXT I 
750 PRINT ‘SCORE : ‘;5S 
768 PRINT OBUS : "3; STR$CNM); * 


220 PRINT HH$; 

788 GOTO 318 

808 A$=A1$:B$=B1$:NM=NM+18 

830 FOR 1=1 TO SOB:NEXT I! 

850 S=S+10 

868 RETURN 

1088 A$="":B$="":HH$=CHR$(19) 
1938 M1=1944:M2=1124: M] =2084 
1068 M=MI:CM=38: MC=S:CR=32:NM=15 


1118 O1$ N=54272.X$="":S=0 
1208 FOR TO ? 
1218 O1$=01%+ 


1220 NEXT 1 

1230 FOR 1=1 TO 48 

1240 READ A,B 

1258 A$=A$+CHR$S CA) 

1268 B$=B$+CHR$CB ) 

1270 IF 1/8=INTCI/8) THEN RESTORE 
1280 NEXT I 

1290 A1$-A$:81$-8$ 


1588 
2088 
28108 
2038 
2848 
2058 
2068 
2878 
2088 
4088 
4818 
4020 
4938 
4848 
485e 
48068 
4078 
4888 
4898 
4108 
4110 
4120 
4130 
4148 
4158 
4168 
4178 
41808 


Les rôles sont maintenant inversés. Vous manœu- 
vrez la D.C.A. et devez essayer d’abattre les 
avions qui passent au-dessus de vous. Pour tirer, 
utilisez n’importe quelle touche. Vous disposez 
au départ de quinze obus. Si vous abattez dix 
avions, vous obtenez un bonus de dix points et 
dix obus supplémentaires. 


PRINT CHR$(1427 ); 

FOR 1=:M-1 TO M+1 

POKE 1,98:POKE I+N,5 
NEXT 1! 

POKE "m,168 

POKE 532808,0 

POKE 53281 ,6 

PRINT CHR$C158 ); 

RETURN 

PRINT CHR$C147) 

IF S2RE THEN RE=S 

FOR 1=1 TO 4 

PRINT 

NEXT I 

PRINT TAB(13)"SCORE : ‘;S 
FOR 1=1 TO 4 

PRINT 

NEXT I! 

PRINT TABC13)'RECORD : ‘;RE 
FOR 1=1 TO 4 

GET x$ 

PRINT 

NEXT I 

PRINT TABC13)'UNE AUTRE ?° 
GET X$ 

IF X$="" THEN 4158 

IF X$C>'N" THEN 29 

END 


18008 DATA 32,182,162,162,162,162,181 
19018 DATA 32,32,32,32,32,32,32,32,32 
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